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INTRODUCTION 
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COURSE DESCRIPTION 

ABSTRACT 

This course is designed for those personnel who are responsible for maintenance, 
consulting and training of the large system environmental software and hardware. 
Emphasis is on the operating system, compilers, basic hardware, associated selected 
support utilities, and other subjects required for developing System Support 
positions. 
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SYSTEM SUPPORT POSITION DESCRIPTION 

Provide cost-effective support in areas of vendor software, data communications, 
program development systems, capacity planning, quality control and database 
mamagement. Technical services include consulting, training and support. The primary 
users of this group is the programming staff and operations. 

Other key areas: 

Operations training 

Operational support tools 

Operations standards (established with operations 

manager) 
Establish hardware/software event monitoring and 

trending 
Assist in development of programming standards 
Effective testing procedures 
Effective testing environment 

Develop and/or acquire program development tools 
Provide internal programmer training 
Establish system software implementation 

policies and procedures 
Establish system software testing procedures 
Maintain library of technical documents 
Distribution of technical documents 
Research an development of current and projected 

technical hardware/software/teclhniques 
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PREREQUISITES 

Prerequisites for this course are: 

Basic understanding of large system concepts and their programming 
languages: COBOL, ALGOL and WFL. Support utility experience including: 
CANDE, LOGANALYZER, DUMPALL, and FILEDATA. 

These requirements will have been met if the following courses have been 
completed: 

FUNDAMENTAL LARGE SYSTEM SKILLS (EP6190) 

ADVANCED LARGE SYSTEM SKILLS (EP6190) 

ALGOL (EP63HO 

COBOL?** 

(or acquired experience) 
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CLASS MATERIALS 

Title Burroughs Form Number 

A Series System Architecture (VOL-2) 501^95^ 
System Software Support ^oikk^k 

B5900 Reference Card 5012099 

Student Guide 
Append ix 

A CODE file construction i/' 

B EVENT word layouts 

C File Information Block (FIB) words 

D Disk File Header (DFH) layout 

E- A9 system description 

F Program Information Block (P I B) words 

G Misc information 

H ATTABLEGEN 

I Review questions 

J Software compilation WFL job 
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COURSE OBJECTIVES 

Understand basic large system hardware. 

Understand Burroughs stack architecture. 

Understand code file structure. 

Understand processor operators. 

Analyze language constructs for correct and efficient code generation. 

Understand basic components of the operating system. 

Understand system software generation techniques. 

Understand a majority of the elements of a Program dump. 

Understand some of the items of a System dump. 

Ability to diagnose program failures through the use of a Program dump and a 
System dump. 
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SCHEDULE 
DAY 1 

Introduce the student with the instructor and vice versa. 

The design and content of the class is reviewed. 

An entrance exam is given to determine the need for review subjects. 

A hardware overview is given. 

Universal I/O is discussed. 
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DAY 2 

Data word formats are reviewed. 

Basic memory management is discussed. 

Arrays of ail types are covered. 

Actual Segment Descriptor (ASD) memory is introduced. 
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DAY 3 

Reference words are presented. 
Basic stack architecture is introduced. 
Processor registers are discussed. 
First program dumps are generated. 
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DAY 4 

Stack Linkage words are covered. 
Program initialization is discussed. 
Parameter passing is presented. 
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DAY 5 

DUMPANALYZER is covered. 

Advanced stack architecture topics are introduced. 
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DAY 6 

Code file construction is covered. 
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DAY 7 

Reverse Polish Notation is reviewed. 
Machine operators are introduced. 
Samples of code generation are given. 
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DAY 8 

More processor operators are covered. 
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DAY 9 

Interrupts are covered. 

FIBs are discussed. 

System software generation is covered. 

Program failure analysis techniques are enhanced using program dumps. 
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DAY 10 

A review of the homework assignment is done. 

An exit exam is given and reviewed. 

A Question and Answer period, if time permits. 
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HARDWARE OVERVIEW 
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MONOLITHIC SYSTEMS 

Resource sharing of memory, CPUs, and IO processors (such as on B7800s and 
B7900s). 

Applications have access to all of: memory, CPUs, and IO processors. 

ADVANTAGES 

Better utilization of processors. 
Reduced operational support/scheduling. 

DISADVANTAGES 

Memory limitation is 6 MB. /!< f) 
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TIGHTLY COUPLED SYSTEMS 

Multiple processor configured under control of a single Master Control Program 
(MCP). 

Each local box has own dedicated Central Processor Unit (CPU), 10 processor, and 
local memory. 

Communications between local boxes is accomplished through GLOBAL memory. 

ADVANTAGES 

Increased memory^ vi^HityJf or entire combined system, v^ i ^ ° > *°^ UlS 
Multiple machine connectivity (i.e. B5900, B6900). 
Maintain single machine environment. 

DISADVANTAGES 

Reduced fault tolerance. 

Adding or deleting subsystems requires Halt Load (H/L). 

Partitioning of subsystems. 

Crowding of GLOBAL memory. 

Overhead factor in support of Tightly Coupled System (TC). 
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TIGHTLY-COUPLED SYSTEM DIAGRAM 
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LOOSELY-COUPLED SYSTEMS 

Communication between multiple independent systems. 
Each system has its own copy of the MICP. 
Systems run independently of each other. 
GLOBAL memory. 

Using GLOBAL memory as a mailbox between systems. 
Inter-System Control {ISC). 

High speed electronic interface between systems. 

DIRECT 10 interface now available. 
Remote Job Entry (RJE). 
Other Datacomm options. V.N* 

ADVANTAGES 

Reduced overhead as compared to tightly-coupled system. 
Independent systems. 

DISADVANTAGES 

Potential split databases. 

Volume communication between systems may be slow. 
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LOOSELY-COUPLED SYSTEM DIAGRAM 
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ENVIRONMENTAL MEMORY \M v ^^ 



PAGE 23 

Partitioning memory into LOCAL areas called Address Spaces. 

Each address space is given an Address Space Number (ASN). 

Shared partition is visible to all LOCAL boxes. 

Application memory visibility is: 6 MB data, 6 MB code. 

Increased overall memory capacity. 

System must still be configured with SUBSYSTEMS. Iz 

ADVANTAGES 

Increased overall memory capacity. 
Sharing of CPU and 10 processors. 

DISADVANTAGES 

Potential GLOBAL memory crowding. 

Sites must still partition application location (SUBSYSTEM). 
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B-7900 REQUESTOR-TYPE ORGANIZATION 
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PARTITIONING ENVIRONMENTAL MEMORY 

Partitioning is done in increments of "page"s. 

A "page" is 128KW of memory. 

No more than eight (8) pages <1 MW) of memory may be included in any address 
space. 

Number of Shared pages will be the same for each Address Space. 

Size of each Local may be different depending upon the machine. 

On an A9: 

Assume that 16 pages are available 

Assume site specified Shared as three (3) pages 

MCP would create two (2) Locals with five (5) pages each (8 pages 

max - 3 pages global = 5) 

MCP would create a third Local with three (3) pages (16 pages total - 

3 pages for Shared - 2 locals with 5 pages each = 3) 

On an A15: 

The site can specify the size of the Shared component 
Can also specify the size of each Local component 
To do this, must use a configuration file 
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B7900 CENR AND DENR 

B7900 computers have additional registers in the processors called: 

CENR Code Environment Number Register 

DENR Data Environment Number Register 

Each xENR can address up to 1 MW of memory. 

Makes total memory visible at one time 2 MW. 

Configuration like the following is possible: 

Shared Local (Units are in Pages) 
Code k 2 

Data 3 k 

Above yields a total of 13 pages or around 1.6 MW. 

Limitation is that no Shared component plus any Local component can exceed eight 
pages. 
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ENVIRONMENTAL MEMORY DIAGRAM 



MEMORY 



ASN //////> 



Shared 



A A 


A 


/ / 


/ 


////////////////// / 


////////////////// 


/ ASN 1 / 


ASN 3 / 


/ ASN 2 / 


/ 


/ / 


/ 


V V 


V 
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SYSTEM NETWORKING 
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BURROUGHS NETWORK ARCHITECTURE 

Burroughs Network Architecture (BNA) is the environmental software required to 
communicate between systems. 

(GLOBAL connected systems, ISC, other datacomm) 
NETWORK services. 
HOST services. 
File transfer. 

HOST to HOST. 

HOST through HOST to HOST. 
File OPEN. TAQi^ af^ ijb <T<i c>f^ J^pU^ ' 
Virtual terminal. 
Task execution. 
HOST mix display and control. 
Least cost and alternate route routing. 
Transport media: ISC, DATACOMM, GLOBAL. 
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Inter-System Control (ISC) is a high speed channel electronic interface system to 
system. 

Connection is point to point (each connection requires a path). 

Up to 4/16 ports per each connecting unit (HUB). 

Depending on which type HUB. 

Most DLP and PCC systems can connect. 

Limited to only BURROUGHS systems. _, 

DIRECT 10 interface available (BNA not required). 
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REMOTE JOB ENTRY 
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Remote Job Entry (RJE) provides limited file transfer and connectivity without 
requiring BNA. 

File transfer. 

Virtual terminals. 
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LARGE SYSTEMS PROGRESSION 

The following pages are intended to show the changes that have occurred in 
Burroughs Large Systems hardware over the years. 

It is also hoped that those new to Burroughs equipment will become familiar with a 
little of Burroughs' history. 
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B-5500 

Monolithic machine. 

"Floating" I/O channels could connect to any I/O device. 

Limited memory of 32 KW. 

First virtual memory machine, circa 1960. 

Discrete components (transistors, resistors, etc.) and diode-register logic as 
opposed to chips. 

B-6700 cii&'K 

Chip architecture version of B-5500. ' (■e^ * 

Multiplexor now has hard I/O channels (one per device controller). 

Faster. 

Has memory capacity of one million words, although early style core memory units 
were too large to physically assemble units close enough for 1 MW. 

Evolved to planar core memory which could complete the 1 MW memory. 
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B-6800 



Introduction of "Global" memory and the concepts of SUBSYSTEMS, "tightly-coupled", 
and "loosely-coupled" machines. 

Integrated Circuit OC) memory available on this mainframe {Model II) 16K chips. 

Fixing design problems or changing design requires wiring or board changes. This 
is complicated, expensive, and very time-consuming. 




LEGEND : 

MDP 
CHn 
MPX 



MAINTENANCE DIAGNOSTIC PROCESSOR 

I/O CHANNEL 

MULTIPLEXOR; I/O PROCESSOR 



CC : CENTRAL CONTROL; TRAFFIC COP FOR I/O CHANNELS 
TO TRANSFER DATA TO MPX 
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B-6900 



Same processor as B-6800. 

IC memory on all models. 

Multiplexor becomes MLIP (Message Level Interface Processor). 

Universal I/O (UIO) devices are added. These are PROM driven, so any logic 
changes usually require only PROM changes. 

Footprint for I/O boxes approximately 1/8 of hard I/O boxes from previous 
architecture. Up to 64 I/O channels fit where 10 used to. 



MAINTENANCE 



ODT 
01. P 



TEST BUS 



BSO 

FLOPPY 













CONSOLE 
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B-5900 



Processor is now "soft" microcode driven. 

16K chips on B-5930 (upright). 

64K chips on B-5920 (low boy). 

UIO is same as B-6900. 

Still only one million words of memory (8.2 Mb) 

Enltry level system to Large Systems. 






m 



tn 



MAINTENANCE INTERFACE 



TEST BUS 



LEGEND : 

MIP : 
MC : 
MP : 



FLOPPIES 



MAINTENANCE INTERFACE PROCESSOR 
MAINTENANCE CARD 
MAINTENANCE PROCESSOR 
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B-7900 



B-7000 entry into UIO. 

B-7800 processor with memory addressing capabilities greater than one million 
words (CENR and DENR), plus some instruction enhancements. 

Total addressable memory 96Mb. 

B-59G0 is Maintenance Processor with capability of Attached Processor online. 

B-7800 IOM becomes HDU with 8Mb bandpass per port {versus 1 to 2 Mb IOM). 

Still memory limitations, although new limit is 1 Mw Code plus 1 MW Data. 

64IK memory chips. 



n 



AP 
AMP 



BASE 
HDU ODT DLP BASE 



ET 1 100 



ET 2000 



n 



FLOPPIES 



LEGEND : 

MEX 
CPM 
MSM 
IOSM 



MAINTENANCE EXCHANGE 
CENTRAL PROCESSOR MODULE 
MEMORY SUBSYSTEM MODULE 
INPUT OUTPUT SUBSYSTEM MODULE 



AP/AMP: B5900 

HDU: HOST DATA UNIT 
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A9 



B-6000 entry into microcode systems. 

New logic: current mode (emitter-coupkid logic) plus a pipeline processor 
with three stages. 

UIO same as before. 

Memory capability now greater than one million words. 

Memory released lad JZA Mb, but capable of^96 Mb.y 

64K memory chips. 



qS<o<~ '■ 



ASD capable without hardware upgrade. 



ET 2000 



TEST BUS 




MEMBASE 



DDT 
DLP 
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A3 




A5K " t 



c^ 



5*^ ' 



.\J" 



9 



A 



"A" series entry level system to large systems. 

UIO same as before. 

Capable of greater than one million words of memory. 

Max memory is 48 Mb. 

256K memory chips. 

In-built Winchester disks, ^f & 4 

Has monolithic 2-by capability (two processors can see, share, and address all of 
memory. 

ASD capable with hardware upgrade. 



LEGEND : 

UIP : 
SMD: 















ET1 lOO 


























BASE OR PROC (OPTIONAL) 






DISK 4 








DISK 3 






MEM 1 PROC 1 UIO DLPS 












\ 
S 
M 


DISK 2 




L " } 


















L 
P 

1 




DISK 1 














Cf 


U 



USER INTERFACE PROCESSOR 
SYSTEM MAINTENANCE DISK 
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A10 

Similar to A9. 

Has 256K memory chips. 

Has improved arithmetic capabilities. 

Monolithic 2-by machine. 

ASD capable without hardware upgrade. 
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oi*H qv£- w^m a^'*^ 

Largest current system in Burroughs line. 
Monolithic B7000 requestor type architecture 
Same UIO as B7900 
New processor and memory with purgeless cache 
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Current maximum memory, as documented by marketing, is 96 MB. 

256K memory chips. 

ASD capable with hardware upgrade. ^ jj^S 



6 tf " 



MEX 



AP/ 
AMP 



CONSOLE 



LEGEND : 

SMP : SYSTEM MAINTENANCE PROCESSOR 
NOTE: BASE O (ZERO) IS SHARED BY SMP AND A 1 S 



MA I NT ST A 
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UNIVERSAL INPUT/OUTPUT 
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UIO PHILOSOPHY 

Universal I/O was originally developed to reduce the amount of work done by the 
mainframe and offload it to a separate I/O subsystem. 

The intent of UIO is that any given I/O is generic to the MCP. In actual fact, this 
is not so. A card reader can't be read backwards, for example. However, much 
of the work of older "hard" l/Os has now been offloaded to a "smart" I/O 
subsystem. 
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MAINFRAME INTERFACE 

All Universal I/O (UIO) operations originate on the mainframe and connect to the 
UIO Subsystem through an I/O processor. 

I/O processors are known as HDUs (Host Data Unit) [B-7900 and A15] or MLIPs 
(Message Level Interface Processor). 

The output from these I/O processors is called a Message Level Interface (MLI) 
which is an I/O protocoLfDj- UIO ports. 
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An I/O Base is nothing more than a rack of circuit boards with a common 
backplane. 

Certain cards must be in a base. These include: 

o Terminator Cards <TC) at both ends. 

o Base Control Card (BCC). 

o Maintenance Card (MC) to the left of the right-hand Terminator Card. 
Other cards may optionally appear in a base. They are: 

o Distribution Cards {DC). 

o Path Selection Modules (PSM). 

o Line Expansion Modules (LEM). 

o Data Link Processors (DLP). 
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TERMINATOR CARD 

A Terminator Card {TO provides electrical signal termination for the common bus 
(backplane) which all cards in the base connect to. 

There must be one at each end of the bus. 

BASE CONTROL CARD 

A Base Control Card (BCC) contains information about which host owns which 
cards (DLPs). This allows two host systems to FREE and ACQUIRE different 
devices. 

At Halt/Load time, the BCC can also inform the MCP what devices reside in this 
base. 

MAINTENANCE CARD 

Provides a path for maintenance to the base. This maintenance can be used to 
test cards in the base. 

Provides clocking for the base. 
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DISTRIBUTION CARD 

A Distribution Card (DC) provides the interface between the base and the host. 

A DC communicates with the host through an MLL 

A DC communicates with the base through the DLI (backplane bus). 

There will be one DC for each host which has an MLI into this base. 

PATH ^ELECTION MODULE 

__-^ If more than one host talks to the same base (i.e. more than one DC in a base), a 
Path Selection Module (PSM) needs to be inserted into the base. 

The PSM provides a "traffic cop" function to insure that both mainframes do not 
attempt to use the backplane of the base or the BCC simultaneously. 

LINE EXPANSION MODULE 

A Line expansion Module (LEM) enables a host to be connected to more bases by 
expanding one MLI to up to seven MLIs. 

Even though a LEM physically resides in a base, it accepts only electrical power 
from the base. It does not use the backplane for communication with other 
elements in the base. 

LEMs are used when a port needs to control more than one DC (eight DLPs). By 
feeding an MLI (port) into an LEM, the output from the LEM can be input to from 
two to seven DCs which yields control over sixteen to fifty-six DLPs. 
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DATA LINK PROCESSOR 

Data Link Processors (DLP) are device-dependent logic cards that provide the 
interface between the host(s) and the peripheral device(s). 

A DLP can consist of two, three, or more cards, depending upon the device type. 

Some of the current DLPs are: 

CR1 Card Reader 

HT1 206, 207, 659, 677 Disk Pack 

MT1 PE Tape 

MT2 PE/GCR Tape 

ODT1 Operator Display Terminal 

,^^LSP1 Line Support Processor (Datacom) 



^NSP3 Datacom Network Support Processor 



■■qC/^i TP2 Buffered Printer 1200/2000 Ipm 



eacU f^-tU ^ciA « 
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UIO EXAMPLE 



A typical path for data in the UIO environment. 



CPU 




////// 
/DATA/ 
////// 

MEM 




HDU 






















DLP 




DC 




LEM 




DLI 


MLI 





I/O CABLE 



CONTROLLER 



////// 

/DATA/ 

////// 

DISK DRIVE 
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FROM DLP TO DISK PACK 



The following diagram is typical of what is outboard from a disk DLP (without an 
exchange). It shows a 2 X 8 configuration. 




//////// 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/////■I 




-///// 



CONTROLLER 



CONTROLLER 



DISK PACK 

DRIVE CONTROLLER 



DRIVE 



///////////- 

/ 

///////////- 

/ 

///////////- 

/ 

///////////- 

/ 

//////- 
/ 

//////- 
/ 

//////- 
r///////////////// 

//////- 



/ 
/ 
/ 
[//////////// 
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FROM DLP TO DISK PACK 



The following diagram shows a typical 4 X 16 disk pack configuration with 
exchange. 



-/////- 



DLP 



-/////- 



DLP 



CONTROLLER 



CONTROLLER 



DPDC 



-AO 


CO 


-Al 


CI 


-A 2 


C2 


-A3 
-BO 


C3 


DO 


-Bl 


Dl 


-B2 


D2 


-B3 


D3 



CONTROLLER 



CONTROLLER 



DPDC 



/////- 


DLP 






/////- 


DLP 



//////////////////////////////////////////////////// 



Al 

Bl- 
Cl- 
Dl 
//////■{ 



A3 
B3 
C3- 
C3- 

//////■ 

/ 

/ 

/ 

/ 

/ 



DRIVES 



-AO 
-BO 
-CO 
-DO 



EXCHANGE 



I I I I I I I I I I I I I I I I I I 



////-I 
/ 

////-I 
/ 



///////////////■I 

/ 
I-A2 ////■ 
-B2 

-C2 ////■ 
-D2 / 
/////////////// 
/ 

////■ 
/ 
////■ 



10 



11 



/ 
/ 
/ 

/ 

////-I 

/ 

////-i 

/ 

////■ 



DRIVES 



////-I 

/ 

f///\ 

/ 

////■ 

/ 

////■ 

/ 



12 



13 



lii 



15 



//////////////////////////////////////////////////// 
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FROM DLP TO TAPE DRIVE 



The following example shows a typical GCR/PE configuration. 



DLP [///// 
/ 



DLP [///// 
/ 



///■ 




LEGEND: 

DLP: DATA LINK PROCESSOR (U I 0) 

TCU: TAPE CONTROL UNIT 
NOTE: 

EXCHANGE CAPABILITIES ARE BUILT INTO THE TCU'S 



/////-I DLP 

/ 

/ 

/ 
j 



REMOTE TCU 
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DATA WORD FORMATS 
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GENERAL INFORMATION 



Words are the fundamental units of data. 



INFORMATION FIELD 



SI 




47 


43 


39 


35 


31 


27 


23 


1 9 


1 5 


1 1 


07 


03 


50 


46 


42 


38 


34 


30 


26 


22 


18 


14 


10 


06 


02 


49 


45 


4 1 


37 


33 


29 


25 


21 


17 


13 


09 


OS 


01 


48 


44 


40 


36 


32 


28 


24 


20 


1 6 


1 2 


08 


04 


00 



TAG FIELD 

Provides general, interpretation of data contained in word information field. 
The Tag: 

Bit 51 of the TAG is only valid on E-MODE systems. 

Bits 50:3 are the only bits currently valid. 

Current value range: 0-7. 

Even tags serve primarily as computation arguments. 

Odd tags primarily serve as reference arguments or control structures. 

Bit 48 is considered the "Memory Protect" bit; Most operators will get an 
error if they try to update a word where bit 48 is on. 

INFORMATION FIELD 

Main portion of the word. 

Interpretation depends on TAG value. 

Bits 47:48. 

Meaning of the word may also depend on context and different bit values. 

Bits may wrap from to 47 if operators require. 
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V 


E 


E 


M 


M 


M 


M 


M 


M 


M 


M 


M 


\>\4 7 


43 


39 


35 


31 


27 


23 


16 


15 


1 1 


07 


03 


MS 


E 


M 


M 


M 


M 


M 


M 


M 


M 


M 


M 


46 


42 


38 


34 


30 


26 


22 


16 


14 


10 


06 


02 


ES 


E 


M 


M 


M 


M 


M 


M 


M 


M 


M 


M 


45 


4 1 


37 


33 


29 


25 


21 


17 


13 


OS 


OS 


01 


E 


E 


M 


M 


M 


M 


M 


M 


M 


M 


M 


M 


44 


40 


36 


32 


26 


24 


20 


1 6 


12 


08 


04 


OO 



TAG 

46:01 

45:01 

44:06 

38:39 



Sign of the MANTISSA (0 = positive , 1 = negative) 
Sign of the EXPONENT (0 ■ positive , 1 = negative) 
EXPONENT field. 
MANTISSA field. 



MANTISSA is the magnitude of the number before scaling. 

EXPONENT is the power of eight to which the MANTISSA is scaled. 

Formula for calculation of decimal value: 

( MS ) ( M ) * ( 8 ** ( ES ) { E ) ) 

Limits on the range of values for a REAL values are: 

Absolute value may not exceed 4.31359146674 @ 68 
Except for zero, absolute value may not be less than 
8.75811540203 @ -47 
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5 1 




47 


O 

43 



39 


M 
35 


M 
31 


M 
27 


M 
23 


M 
1 9 


M 
15 


M 
1 1 


M 
07 


M 
03 



SO 


MS 
46 



42 


M 
38 


M 
34 


M 
30 


M 
26 


M 
22 


.M 
18 


M 
14 


M 
10 


M 
06 


M 
02 


O 

4 9 




45 


O 

4 1 


M 
37 


M 
33 


M 
29 


M 
25 


M 
21 


M 
1 7 


M 
13 


M 
09 


M 
05 


M 
Ol 


O 

4 8 



44 



40 


M 
36 


M 
32 


M 
28 


M 
24 


M 
20 


M 
1 6 


M 
1 2 


M 
08 


M 
04 


M 
00 



TAG 

46:01 

45:01 

44:06 

38:39 



Sign of the MANTISSA (0 = positive , 1 = negative) 
Sign of the EXPONENT (Always 0) 
EXPONENT field (Always 0). 
MANTISSA field. 



MANTISSA is the magnitude of the number before scaling. 
Formula for calculation of decimal value: 
( MS ) ( M ) 

INTEGER is the same as a REAL except that the EXPONENT is always 0. 
The compilers force the exponent by generating integerizing operators. 
The hardware can not distinguish between a REAL or a INTEGER. 
The absolute value for an INTEGER may never exceed: 
549,755,813,887 
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BOOLEAN 



to 1 




51 




47 



43 



39 



35 




31 



27 



23 



18 



1 5 


O 

1 1 



07 



03 


O 
50 


© 

46 


O 
42 



38 




34 



30 



26 


O 
22 



18 


O 
1 4 



10 


O 
06 



02 



48 


© 
46 




4 1 



37 


O 
33 



29 



25 


O 

21 



17 




13 



OS 



05 


O 
01 



48 




44 



40 



36 



32 


O 
28 



24 


O 
20 1 6 




12 


o 

OS 



04 


B 
OO 



0^ 



\A* 



-dV 



TAG 

00:01 BOOLEAN logical value (1 = TRUE, = FALSE) 







The hardware uses bit for conditional branching. 

All other bits are ignored. 

The hardware can not distinguish between a REAL, INTEGER and a BOOLEAN. 

Other bits may be on or off, but they are not used in condition checking. 

Many logical operations operate on all bits in parallel. 
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ONE-QUESTION PROBE 

If REALs, INTEGERS, and BOOLEANs all have the same tag of zero, how does the 
processor know what type of data it's working with and what to do with it? 
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DOUBLE PRECISION OPERANDS 
MOST SIGNIFICANT PART — MSP 



TAG 

46:01 

45:01 

44:06 

38:39 











DOUBLE 


MSP) 






































E 


E^* 


M 


M 


M 


M 


M 


M 


M 


M 


M 


47 




43 


3 9 


3S 


31 


27 


23 


19 


15 


1 1 


07 


03 


MS 




E 


M 


M 


M 


M 


M 


M 


M 


M 


M 


M 


46 




42 


38 


34 


30 


26 


22 


18 


14 


10 


06 


02 


ES 




E 


M 


M 


M 


M 


M 


M 


M 


M 


M 


M 


45 




41 


37 


33 


29 


25 


21 


17 


13 


06 


05 


01 


E 




E 


M 


M 


M 


M 


M 


M 


M 


M 


M 


M 


44 




40 


36 


32 


28 


24 


20 


16 


12 


08 


04 


00 



Sign of the MANTISSA (0 = positive , 1 * negative) 
Sign of the EXPONENT (0 = positive , 1 = negative) 
Low order 6 bits of the EXPONENT. 
The integer portion of the MANTISSA. 



MANTISSA is the magnitude of the number before scaling. 
EXPONENT is the power of eight to which the MANTISSA is scaled. 
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LEAST SIGNIFICANT PART — LSP 



DOUBLE (LSP) 



c< 




EE 


EE 


EE 


ME 


ME 


ME 


ME 


ME 


ME 


ME 


ME 


ME 


5 1 




47 


43 


39 


35 


31 


27 


23 


19 


15 


1 1 


07 


03 





EE 


EE ,;'; 


ME 


ME 


ME 


ME 


ME 


ME 


ME 


ME 


ME 


ME 


BO 




46 


4 2 


38 


34 


30 


26 


22 


16 


1 4 


10 


06 


02 


1 


EE 


EE ! ; 


ME 


ME 


ME 


ME 


ME 


ME 


ME 


ME 


ME 


ME 


49 




45 


4^ 


37 


33 


29 


25 


21 


17 


13 


09 


05 


01 


0' 


EE 


EE | 

i 


ME 


ME 


ME 


ME 


ME 


ME 


ME 


ME 


ME 


ME 


46 




44 


«<f 


36 


32 


28 


24 


20 


1 6 


1 2 


08 


04 


OO 



TAG 2 

44:06 The high order 9 bits of the EXPONENT. 

38:39 The fractional portion of the MANTISSA. 

MANTISSA is the magnitude of the number before scaling. 
EXPONENT is the power of eight to which the MANTISSA is scaled. 



The actual value of the EXPONENT field is: 
EXP0NENT:= 

& MSP., [05:44:06] 
6 LSP. [14:47:09] 



The maximum absolute value for a DOUBLE operand is: 
1.94882938205028079124469 * ( 10 ** 29603 ) 

The minimum absolute value, except for zero, is: 

1.9385458571375858335564 * ( 10 ** -28581 
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UNINITIALIZED OPERANDS 





5 1 




47 



43 




39 




35 




31 



27 



23 


O 

19 




IB 



1 1 



07 


O 
03 


1 
SO 



46 


O 
42 



38 



34 



30 


O 
26 



22 



18 




14 



10 


O 
06 



02 


1 

49 




45 


O 

41 



37 


O 
33 



29 


O 
25 




21 



17 



13 


o 

09 



05 


O 
01 




48 



44 


O 
40 



36 



32 


O 
26 



24 



20 



16 



12 



08 



04 


O 
OO 



TAG 6 

47:48 All bits 

Can be interpreted by the hardware as a 48 bit vector. 

Also used by the compilers for initial setting for some variables, most notably 
ARRAY REFERENCES and POINTERS. ^ ^_ 

This operand is primarily used as a software control word. ) i>/ r r 4/ la cr^ 
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TAG 4 WORDS 



TAG 
47:48 



TAG 4 WORD 





S 1 




47 



43 



39 



35 




31 


O 
27 




23 




19 


O 
15 




1 1 



07 



03 


1 

50 



46 



42 


O 

38 




34 



30 



26 



22 




18 




1 4 


o 
io 



06 



02 



49 




45 




4 1 



37 



33 



29 



25 



21 


O 
17 


O 

13 



OS 



05 




01 



48 



44 



40 



36 



32 


O 
28 



24 



20 




1 6 


O 

12 



08 



04 


o 
oo 



4 
All bits 



This word is used for various software needs: 

(i.e. ON ANYFAULT, ON RESTART, and INTERRUPT). 

This word is reserved for applications in future levels of architecture. 
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ALGOL 



C0B0L68 



C0B0L7^ 



TYPE 



TAG 



REAL 


COMP-4 


INTEGER 


COMP-1 


INTEGER 


COMP 


BOOLEAN 


N/A 


DOUBLE 


COMP-5 


EVENT 


EVENT 


POINTER 


N/A 


ARRAY 




REFERENCE 


N/A 



REAL (*) 


Si ngl e 


Prec 





N/A 


Si ngle 


Prec 





B 1 NARY 


S i ngl e 


Prec 





N/A 


Si ngle 


Prec 





DOUBLED) 


Doubl e 


Prec 


2 


EVENT 


Double 


Prec 


2 


N/A 


Uni ni t 


Var 


6 


N/A 


Uni ni t 


Var 


6 



? 



Note: Starred (*) COBOL7^ items are new as of Release 3.6. 
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PROGRAM CODE WORDS 



Variable length operator sequences are stored in arrays of Program Code Words. 
Contains six 8-bit syllables, numbered zero to five (0 - 5). 



TAG 

47:08 

39:08 

31:08 

23:08 

15:08 

07:08 



PROGRAM CODE WORDS 




SI 





47 



43 


1 
39 


1 
35 


2 
31 


2 
27 


3 
23 


3 
16 


4 
15 


4 
1 1 


5 
07 


5 
03 



50 



46 



42 


1 
38 


1 
34 


2 
30 


2 

26 


3 
22 


3 
18 


4 
14 


4 
10 


5 
06 


5 
02 


1 
49 



45 


O 

41 


1 
37 


1 
33 


2 
29 


2 
2B 


3 
21 


3 
17 


4 
13 


4 
09 


5 
05 


5 
01 


1 
48 



44 


O 
40 


1 
36 


1 
32 


•■ 2 
2 8 


2 
24 


3 
20 


3 
16 


4 
12 


4 
08 


6 
06 


5 

oo 



Code syllable 

Code syllable 1 

Code syllable 2 

Code syllable 3 

Code syllable 4 

Code syllable 5 
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MEMORY MANAGEMENT 
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OVERVIEW 

Virtual memory management technique that is designed to satisfy memory needs of 
a program quickly and efficiently. 

Memory is organized into two major components: 

IN-USE AREAS 
AVAILABLE AREAS 

Each memory area is preceded and followed by link words which describe the 
contents and status of that area. 

A DESCRIPTOR references the portion of memory containing 4frot contai n s- the data 
or code. 
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IN-USE AREAS 



These areas have two general types: 
SAVE 
NON-SAVE 



SAVE 

SAVE ares are required to be resident in memory from time they are allocated to 
the time they are de-allocated. 

The reasons for SAVE areas are varied: A \P 

I/O buffer. ^.j^ £* Xv^ 

DIRECT arrays, -t^ VHV^ ^ 
Critical MCP or application code. 
Critical MCP structures: 

TASK 

STACK 

FILE INFORMATION, BLOCK (FIB) 
Critical application structures. 

Most SAVE areas must remain at their assigned memory location for extended 
periods of time. "- — — ■ 

NON-SAVE 0V)£ £Uvf,\66 6 

Most NON-SAVE memory ares can be overlayed to disk by the MCP. 

These areas are automatically re-allocated to memory when they are needed. 

Some NON-SAVE memory areas must be resident in memory but are allowed to 
move — considered to be "sticky" memory. (RESIDENT areas: DCALGOL). 
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MEMORY LINKS 



■re (N0S6 



a/ve^ 



Ujfrrc^ — i <*jM(k i — wx^ 



X 



4a 



)0*/A. 



LINKA 



LINKB 



LINKC 



ACTUAL DATA 



LIN& 



LINKA 

LINKB 
LINKC 

ACTUAL DATA 
LINKZ 



Contains address of original descriptor (MOM). 
Contains length of area, rw t>>«x*A^ 
Contains type of area {ODDBALLF). 

Contains the STACK number who owns the MOM. 

Code location where data was allocated. 

Will vary in length for most occurrances. 

Similar to LINKA for backwards memory chaining. 
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MEMORY ORGANIZATION 



Indiscriminate mixing of SAVE and OVERLAYABLE areas would cause inefficient 
use of memory space such as in the case of checkerboarding. 

Clustering of SAVE and NON-SAVE areas helps avoid the checkerboarding 
problem. 



MEMORY ORGANIZATION 



SAVE 


NON-SAVE 
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AVAILABLE AREAS 2 ^^ "" ^^ 

Organized in two lists to attempt to allocate SAVE ares into low memory and 
NON-SAVE into high memory. 

SAVE LIST 

Is a list of all available memory areas that could be used as SAVE memory. 

NON-SAVE LIST 

Is a list of all available memory areas that could be used as NON-SAVE memory. 

AVAILABLE LIST STRUCTURES 

The SAVE and NON-SAVE lists are ordered by size where the smallest piece of 
memory is first. 

If there are duplicate areas with the same size (i.e. three areas of 25 words), 
"side lists" are linked into the primary area in the list. 

These "side lists" help reduce the number of duplicate entries the MCP has to scan 
through when looking for memory. 

MCP/AS uses a MOD function to jump to a location in the list and then proceed 
from forward, thereby skipping areas of memory it knows to be too small. 
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DATA DESCRIPTORS 

The structures that reference actual memory areas (bounded by memory links). 

ORIGINAL DESCRIPTORS 

There is only one original descriptor (MOM) for an area of memory. 

Update access to MOM descriptors is restricted since pertinent 
information would be lost if they were modified. 

MOM descriptors control allocation, de- allocation, and overlay of memory 
segments. 

COPY DESCRIPTORS 

Primarily is a duplicate descriptor. 

May point to a memory segment (same as MOM) if resident. 

May point to the MOM descriptor (if not resident: ABSENT). 

Built by the compiler when request to access an ORIGINAL data segment in a 
different SIZE (WORDS, EBCDIC, HEX). 

Built where processor operators require updates to a descriptor. 
Note: A discussion of ASD memory will be included later. 
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OVERLAY 



Memory requests for an area size which can not be satisfied from the available 
list cause the system to overlay memory which is non-save, in-use areas. 

Each task is assigned an overlay file. 

Each MOM descriptor has space reserved in this file the first time it is made 
present. 

Overlay space is retained until memory segment is deallocated. 
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DEMAND OVERLAY 



Requests for forced overlay occur only when there is not enough contiguous 
memory available for the size of the request. 

From a rotating point in memory (called the LEFTOFF pointer), in-use areas are 
moved or overlayed until there is enough memory to satisfy the requested size. 

Movement of data requires search and update of MOM and COPY descriptors. 



IN-USE 


( 10 WORDS) 


IN-USE 


( 60 WORDS ) 


IN-USE 


( 40 WORDS) 


AVAI L 


( lOO WORDS ) 


IN-USE 


( 30 WORDS) 


IN-USE 


( SO WORDS) 


IN-USE 


( 60 WORDS) 



If the request was for 300 words of memory: 

All of the above IN-USE areas will be moved or overlayed to satisfy the 
request. 

The last area will be split, the remainder addled to the appropriate 
AVAILABLE list. 

Majority of applications are written in COBOL. 

COBOL programs tend to be coded with many small data segments (average area 
may be as small as 60 words). 

Large data requests could cause a significant memory management burden. 
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WORKING SET 

WORKING SET is defined as the amount of physical memory required to run a task 
effectively. 

WSSHERIFF 

Internal MCP process that forces overlays to occur at a predefined rate. 

This approach is to prevent bursts of overlays by causing areas not used often to 
be overlayed. 

Increased processor overhead to support WORKING SET memory management. 

Overlays may occur more often than in DEMAND overlay. 

WSSHERIFF is initiated when OVERLAY GOAL is greater than 0. 
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NAME 
OVERLAY GOAL 
AVAILMIN 
FACTOR - — 



MEMORY PRIORITY 




9^~ 



J^ 



$ f 



OVERLAY GOAL 



Percent of OVERLAYABLE memory that is attempted to be overlayed per minute. 



AVAILMIN 



Active programs are suspended in priority order if the actual AVAILABLE memory 
falls below the AVAILMIN percentage of actual memory. 

The attempt is to slow down the requests for memory and OVERLAY the 
OVERLAYABLE areas of the suspended task. 

SAVE areas are not OVERLAYED. 
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FACTOR 

This is the percentage of actual memory the scheduling mechanism assumes it has. 

Lower than 100% may cause more tasks to become scheduled with potentially less 
memory management overhead. 

Higher than 100% may cause tasks to be executed when they normally should have 
been scheduled. 

Higher FACTOR settings may increase overhead to support memory management. 



MEMORY PRIORITY 

Attempt to add priority as a criteria to the OVERLAY decision. 

Lower priority tasks may tend to have more OVERLAY activity under WORKING SET 
than higher priority tasks. 

Time to find overlay areas to meet a given size may be longer under MEMORY 
PRIORITY control. 
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SWAPPER 



This facility allows TIME-SLICING to service users in a resource sharing 
environment. 

A portion of memory is reserved for SWAPPER to manage. 

The bounds for all data segments for a given task are contiguous. 

Tasks are overlayed to a file call SYSTEM/SWAPDISK when it no longer requires 
the processor or has exceeded a pre- determined time slice. 

A few 10's will occur to overlay or make a program active reducing the number of 
10's required to make independent data segments resident. 

Programs will conform to the normal DEMAND overlay scheme if not enough 
memory is available within is limited scope. 

Tasks requiring little processor utilization are favored. 

SWAPPER is not available on ASD machines (MCP/AS). 
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DESCRIPTORS 
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DATA SEGMENT DESCRIPTORS 



Data descriptor is the word type that describes data segments. 

A virtual data segment is an array of elements where an element of the array is a 
single word, a double word pair, or a sub-word character requiring 4 or 8 bits. 

TAG DATA DESCRIPTOR FORMAT 




S 1 




PR 
47 


RO 
43 


L 
38 


L 
35 


L 
31 


L 
27 


L 
23 


A 

19 


A 
16 


A 

1 1 


A 
07 


A 
03 


1 

50 


C 
46 


SZ 
42 


L 
38 


L 
34 


L 
30 


L 
26 


L 
22 


A 
18 


A 
14 


A 

io 


A 
06 


A 
02 




49 


o 

45 


SZ 

41 


L 
37 


L 
33 


L 
29 


L 
25 


L 
21 


A 
17 


A 
1 3 


A 
09 


A 
05 


A 
01 


1 
48 


PG 

44 


SZ 

40 


I 
36 


L 
32 


L 
28 


L 
24 


L 
20 


A 
16 


A 
12 


A 
08 


A 
04 


A 

oo 



TAG 

47:01 

46:01 

45:01 

44:01 

43:01 

42:03 



Present bit (0 = absent, 1 = present). 

aaoM 
Copy bit (0 s original, 1 = copy). 

Indexed bit (0 ■ un-indexed, 1 = indexed). 

Paged bit (0 * non-pages, 1 = paged). 

Read-only bit (0 s read/write, 1 = read-only). 

The type of array element (SIZEF). 



= Single Precision 

1 - Double Precision 

2 «= Hex 
4 = EBCDIC 



^ t^** 






39:20 The number of elements in the array (LENGTHF). 

19:20 If the descriptor is: 

Present MOM: Address in memory of the array 
Absent MOM: See alternate description of 19:20 
Present Copy: Address in memory of the array 
Absent Copy: Address in memory of MOM 

For Absent MOMs, there is a second description of bits 19:20 on the next page. 
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ABSENT MOM DESCRIPTORS 

For non-present (i.e. absent) MOM Descriptors, the following is the specification 
for bits [19:20]: 

IF 

19:01 (OLAYFILEF) is 1, the data has been overlayed and bits 18:19 are the 
relative record number in the program's overlay file which contains the actual data 

ELSE 

IF 

18:01 (CODEFILEF) is 1, this is an original descriptor for read-only and code 
segments and bits 17:18 are the relative record number in the code file of the 
code segment or read- only array data 

ELSE 

this is a "virgin" MOM and bits 17:18 must be evaluated as follows: 

If [17:01] = 0, then bits [16:17] indicate: 

= NON-SAVE array 

1 = SAVE array 

2 = EVENT array 

>2 = ARRAY information table (AIT) 

If [17:01] = 1, then bits [16:17] indicate: 

= DIRECT array 

1 = DOPE vector 

>2 s OWN array information table (OAT) 
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LANGUAGE REPRESENTATION 
ORIGINAL DESCRIPTOR 

ALGOL C0B0L68 C0B0L7^ 

REAL ARRAY 01 ITEM COMP. 01 ITEM BINARY. 

01 ITEM C0MP-1 . N/A 

EBCDIC ARRAY 01 ITEM DISPLAY. 01 ITEM DISPLAY. 

HEX ARRAY 01 ITEM C0MP-2. N/A 
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COPY DESCRIPTOR 



ALGOL 



EBCDIC ARRAY 
HEX ARRAY 
ARRAY 



HA[0] 
A[0] 



EA [0:179]; 

EA; 

EA; 



EA 



TAG 

COPY BIT 

ELEMENT_SIZE 

LENGTH 

ADDRESS 



5 


h (EBCDIC) 
180 

(Absent MOM never used) 



HA 



TAG 

COPY BIT 

ELEMENT_SIZE 

LENGTH 

ADDRESS 



5 
1 

2 (HEX) 
360 
EA (COPY points to MOM) 



TAG 

COPY BIT 

ELEMENT_SIZE 

LENGTH 

ADDRESS 



5 

1 

(WORD array) 
30 
EA (COPY points to MOM) 
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01 



EA. 






03 ITEM-2 




PIC X(002) 


03 HA 


COMP 


PIC X(003) 


03 ITEM-4 




PIC X(002) 


03 A 


BINARY 


PIC 9(011) 


03 ITEM-6 




PIC X (168) 



EA 



TAG 

COPY BIT 

ELEMENT_SIZE 

LENGTH 

ADDRESS 



(MOM descriptor) 

if (EBCDIC) 
180 

(MOM absent never used) 



HA 



TAG 

COPY BIT 

ELEMENT_SIZE 

LENGTH 

ADDRESS 



5 
1 

2 (HEX) 
360 
EA (COPY points to MOM) 



TAG 


5 


COPY BIT 


1 


ELEMENT SIZE 





LENGTH 


30 


ADDRESS 


EA 



EA (COPY points to MOM) 
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ONE-QUESTION PROBE 

In the example on the prior page, each of the descriptors describe the entire 
record. However, the individual items are much smaller than that. For example, 
the data item HA starts at the third EBCDIC character in the record and is three 
Hex characters in length, yet the descriptor for HA indicates a length of 360 Hex 
characters. How does the system know what piece<s) of the record to use and 
what to ignore? 
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MULTI-DIMENSIONAL ARRAYS 

The ORIGINAL descriptor (sometimes called a DOPE) will point to a vector of 
ORIGINAL descriptors (sometimes called a DOPE vector). 

This will continue until the last vector has ORIGINAL descriptors which actually 
point to the data segment(s). 

Each of these vectors of ORIGINAL descriptors will be SAVE memory and will 
have the length of the next dimension. 
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ARRAY A [0:2,0:5]; 



A [0,1] 
A [1,3] 
A [2,5] 



= 111; 
= 222; 
= 333; 























3 


















3 
























3 


p 


6 

























1 


2 


3 


h 


5 
















2 






p 


6 












2 
















2 






p 


6 




















n 


1 


2 


3 


k 


5 




















1 


















1 
1 
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PAGED ARRAYS 

PAGED arrays (sometimes called SEGMENTED) divide large data segments into 
multiple data segments. 

The structure is the same as a MULTI-DIMENSIONAL array except that the PAGED 
bit - 1. 

The size of the individual data segments is 256 words. 

Access to elements of the PAGED array is transparent to the program. 

Automatic segmentation occurs by default if the array is not declared LONG and is 
greater than 1024 words. 

The upper bound which causes truncation can be changed by an ODT command. 
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ARRAY A [0:1279]; 



A [256] 
A [512] 
A [768] 



- 256 
= 512 
= 768 



1 



25^ 255 



p 

PG 


1 280 















L-l 











768 












256 






















p 


256 










1 




25^ 255 


p 


256 






512 














p 


256 
















n 1 ozL oca 




256 














256 
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INDEXED DATA DESCRIPTORS 

Reference an individual element of a data segment. 
Must be a COPY. 
Can not be PAGED. 
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INDEXED WORD DATA DESCRIPTOR 



INDEXED WORD DATA DESCRIPTOR 



o 

5 1 




PR 
47 


RO 
43 


I 
39 


1 
35 


I 

31 


I 
27 


I 
23 


A 
19 


A 
15 


A 
1 1 


A 
07 


A 
03 


1 
BO 


1 
46 


SZ 
42 


I 
38 


I 
34 


I 
30 


I 
26 


I 
22 


A 
18 


A 
14 


A 
10 


A 
06 


A 
02 


O 
49 


1 
45 


SZ 

41 


I 
37 


I 
33 


I 
29 


I 
25 


I 

21 


A 
17 


A 
13 


A 
09 


A 
05 


A 
01 


1 
48 




44 


SZ 
40 


I 
36 


I 
32 


I 
28 


I 
24 


I 
20 


A 
1 6 


A 
12 


A 
08 


A 
04 


A 

oo 



"0? 

CI . \ 




c 



g 



TAG 

47:01 

46:01 

45:01 

44:01 

43:01 

42:03 



30:20 
19:20 



Present bit (0 = absent, 1 = present). 

Copy bit (1 = COPY) 

indexed bit (1 - indexed). 

Paged bit (0 = non-pages) 

Read-only bit (0 .= read/write, 1 ■ read-only ). 

The type of array element (SIZEF). 

= Single Precision INDEXED SINGLE DD 

1 = Double Precision INDEXED DOUBLE DD. 

Index ( ujuu> uaaj \U J 

Address 
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INDEXED CHARACTER DATA DESCRIPTOR 





5 1 




PR 
47 


RO 
43 


CI 
39 


WI 
35 


WI 
31 


WI 
27 


WI 
23 


A 
IS 


A 
15 


A 

1 1 


A 
07 


A 
03 


1 
BO 


1 
46 


SZ 

42 


CI 
38 


WI 
34 


WI 
30 


WI 
26 


WI 
22 


A 
18 


A 
1 4 


A 
10 


A 
06 


A 
02 


D 
49 


1 
45 


SZ 

41 


CI 

37 


WI 
33 


WI 
29 


WI 
25 


WI 

21 


A 
17 


A 
13 


A 
OS 


A 
OS 


A 
01 


1 
48 




44 


SZ 
40 


CI 
36 


WI 
32 


WI 
28 


WI 
24 


WI 
20 


A 
1 6 


A 

12 


A 
08 


A 
04 


A 
00 



TAG 

47:01 

46:01 

45:01 

44:01 

43:01 

42:03 



39:04 
35:16 
19:20 



Present bit (0 = absent, 1 = present). 

Copy bit (1 = COPY). 

Indexed bit (1 = indexed). 

Paged bit (0 » non-pages). 

Read-only bit (0 ■ read/write, 1 = read-only). 

The type of array element (SIZEF). 

2 = HEX 
4 = EBCDIC 

Character Index in SIZEF units. 

WORD index (regardless of SIZEF). 

Address 
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LANGUAGE REPRESENTATIONS 

ARRAY A [0:29]; 

ALGOL C0B0L68 C0B0L7i+ 



POINTER 


N/A 


N/A 


POINTER (A, 0) 


N/A 


N/A 


POINTER (A, h) 


N/A 


N/A 


POINTER (A) 


N/A 


N/A 


POINTER (A, 8) 


N/A 


N/A 
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CODE SEGMENT DESCRIPTOR 





51 




PR 
47 


43 



39 



35 


SL 
31 


SL 
27 


SL 
23 


A 
1 9 


A 
15 


A 
1 1 


A 
07 


A 
03 


BO 


C 
46 


S2 

42 



38 


O 
34 


SL 
30 


SL 
26 


SL 
22 


A 
18 


A 
14 


A 
10 


A 
06 


A 
02 


49 


46 


SZ 

4 1 



37 



33 


SL 
29 


SL 
25 


SL 
21 


A 

17 


A 
13 


A 
09 


A 
05 


A 
01 


1 
48 


O 
44 


SZ 

40 



36 


SL 
32 


SL 
28 


SL 
24 


SL 
20 


A 
1 6 


A 
12 


A 
08 


A 
04 


A 

oo 



TAG 

47:01 

46:01 

42:03 

39:07 

32:13 

19:20 



Present bit (0 = absent, 1 = present). 

Copy bit (0 = original, 1 = copy). 

SIZEF must be zero (i.e. WORDs). 

Must be zero 

The number of code words in the segment. 

Present: 

Memory address of the base word of the data segment. 



Absent Copy: 

Address of the original descriptor. 

If the descriptor is an Absent MOM, bit [19:01] will be zero and bits [18:19] 
take on new meaning: 

18:01 If 1, the code segment has never been touched; 

if 0, the code segment has been touched. 

17:18 Address of the code segment in the code file. 
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SOFTWARE CONTROL WORD — SCW 

A BLOCK (in ALGOL) is defined as a BEGIN...ENO pair with declarations. 

The SCW is used by the system to terminate a BLOCK which may have present: 
ORIGINAL descriptors or other structures which reference entities outside of this 
stack. 

BLOCKEXIT is the MCP software procedure which returns the data segments to the 
appropriate available memory list upon attempt to EXIT a BLOCK. 

The SCW has a mask which designates the type of memory areas which may need 
to be returned. 
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SOFTWARE CONTROL WORD (SCW) 




51 




1 
47 



43 




39 


O 
35 



31 



27 



23 


M 
IS 


M 
15 


M 
1 1 


PC 
07 


PC 
03 


1 
50 



46 



42 



36 




34 



30 


O 
26 



22 


M 
18 


M 
14 


O 

10 


PC 
06 


PC 
02 


1 
4S 




45 



41 


O 

37 



33 




29 


O 
25 




21 


M 
17 


M 
13 


PC 

os 


PC 
05 


PC 
01 



48 




44 



40 


O 
36 



32 


O 
28 



24 


O 
20 


M 
1 6 


M 
12 


PC 
08 


PC 
04 


PC 
00 



TAG 6 

47:01 Bit = 1. 

19:09 Mask field defining element types in BLOCK. 

17:01 Non local GO TO. 

16:01 DIRECT array. 

15:01 FAULT (e.g. ON ANYFAULT). 

14:01 INTERRUPT. 

13:01 FILE. 

12:01 Multi-dimensional array{s). 

11:01 Single-dimensional array(s). 

09:10 Count of dependent processes which have this block as its CRITICAL BLOCK. 
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ACTUAL SEGMENT DESCRIPTORS 
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ACTUAL SEGMENT DESCRIPTOR MEMORY 

ASD memory is part of the MCP/AS (Advanced System) product. 

Available only on Burroughs A Series computers. 

A3 and A15 require hardware modifications to run MCP/AS. 

A9 and A10 do not require hardware modifications to run MCP/AS. 

Advantages: 

Expands monolithic memory size to 4 GW (2**32 = 24 g-bytes). 
SUBSYSTEM concept goes away. 
SWAPPER goes away. 

Reduces stack searching. 

All descriptors point to the ASD table. 

Reduced MCP and user complexity. 

Addition of new resource-saving features. 
Disadvantages: 

Additional reference for each memory access. 

Hardware upgrade on some machines. 
Major benefit will be to users with memory problems. 
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ASD TABLE 

Table size (i.e. number of entries) settable at Cold Start time and via the new 
ODT command ASD. 

Each entry in the ASD table is four words long and consists of pieces of 
information about memory such as: 

o whether the array is present in memory or not 

o its addresses, both actual and virtual 

o its length 

o whether it's been changed (the "dirty" bit) 

o stack number of MOM descriptor 

o if it's a dope vector or not 
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ASD VERSUS NON-ASD DESCRIPTORS 

Descriptors in the non-ASD environment are of only one type: Actual. 
In an ASD environment, there are two types of descriptors: 

Virtual (what used to be Actual on non-ASD) 

Actual (the four-word ASD table entry) 
Non-ASD Actual descriptors take the following basic form: 

Non-ASD Actual Descriptor 



Tag 



Control 


Length 


Address 



[51: Oil] Tag of 5 

[if7:08] Control 

[39:20] Length 

[19:20] Address 

ASD Virtual descriptors take the following basic form: 



ASD Virtual Descriptor 



Cont rol 


Lengt h 


ASD Index 



[51:04] Tag of 5 

[if7:08] Control 

[39:20] Length 

[19:20] ASD Index 
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NON-ASD DESCRIPTORS 



Non-ASD Descriptors are handled as follows: 



Non-ASD Stack with Non-Present Descriptors 







>w 






Copy 




^ 








Overlay Fi 


le 


MOM 















Non-i 


^SD Stack with Present Descriptors 


Copy 
















*v 


Array in Memory 






MOM 


"s. 
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ASD DESCRIPTORS 



ASD Descriptors are handled as follows: 



ASD Stack with Non-Present Descriptors 



ASD Table 



Copy 



MOM 




Over lay File 



ASD Stack with Present Descriptors 
ASD Table 



Copy 



MOM 





"s. 




Array in Memory 


ASD Entry 
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REFERENCE WORDS 
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ADDRESS COUPLES 

A pair of Indices (Lex Level, Offset) that reference a word in the current 
addressing environment. 

Lex Level represents a LEXICAL region which is in the current addressing 
environment. 

Offset is a the number of words from an Activation Record in the current 
addressing environment. 



Examples: 



(*.22) 



Address Couples are generated in one of two forms: 

FIXED FENCED 

The Lex level and Offset are fixed as to their maximum ranges. 

VARIABLE FENCE 

The Lex level and Offset ranges depend on the current Lex Level at the time of 
the execution of the reference. 
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INDIRECT REFERENCE WORD (I)RW) 





5 1 




47 


43 


39 


35 


31 


27 


23 


,1 


1 5 


A 
1 1 


A 
07 


A 
03 



SO 



46 


42 


38 


34 


30 


26 


22 


18 


14 


A 
10 


A 
06 


A 
02 




49 


45 


41 


37 


33 


29 


25 


21 


1 7 


A 
13 


A 
09 


A 
05 


A 
1 


1 
48 


44 


40 


36 


32 


28 


24 


20 


16 


A 
1 2 


A 
08 


A 
04 


A 
00 



V 

^ 



^ 



46:01 



Bit - 



13:14 Lex level and Offset fields (variable fence) 



The least significant bit of the Lex Level starts at bit 13 and continues to the 
right up to the variable fence. 

The rpdst significant bit of the Offset starts at bit and continues to the left up 
to the variable fence. 

But Where's the fence? 

Number of bits valid in LEX level depends on current Lex Level at the time of the 
execution of the reference. 
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FLOATING FENCE 

Problem: 

One field [13:1 4 that contains two subfields: Lex Level and Offset. 

Both fields can vary in size. 

How does one determine where the "fence" <or dividing line) is? 
Solution: 

Take the currently-running Lex Level (not what is being referenced). 

Determine how many bits are needed to represent that Lex Level. 

That's how big the lex level field is. 

The remaining bits are for the Offset. 

Table for Determining Where the "Fence" Is 



LL 


LEX BITS 


OFFSET BITS 


WAX OFFSET 





1 


13 


8191 


1 


1 


13 


8191 


2 


2 


12 


-4095 


3 


2 


12 


if095 


k 


3 


11 


20it7 


5 


3 


11 


2047 


6 


3 


11 


20it7 


7 


3 


11 


201*7 


8 


4 


10 


1023 


9 


if 


10 


1023 


10 


if 


10 


1023 


11 


k 


10 


1023 


12 


if 


10 


1023 


13 


if 


10 


1023 


lit 


if 


10 


1023 


15 


if 


10 


1023 
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ONE-QUESTION PROBE 

What problems or limitations are inherent in the above "floating fence" concept? 
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IRW EXAMPLE 



TAG 










NDIRECT REFERENCE WORD (IRW) 
















EXAMPLE 








































51 




47 


43 


39 


35 


31 


27 


23 


19 


15 


1 1 


07 


03 






























1 


50 




46 


42 


38 


34 


30 


26 


22 


18 


1 4 


iO 


06 


02 
























o 








49 




45 


4 1 


37 


33 


29 


25 


21 


17 


13 


09 


05 


01 


1 


















1 








1 


48 




44 


40 


36 


32 


28 


24 


20 


1 6 


12 


08 


04 


00 



10 5 



Assume LL = 3. 

The above IRW 1005 is actually a reference to (2,5). 
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NORMAL INDIRECT REFERENCE WORD — NIRW 



Valid only on E-MODE machines. 

Fixed fence. 

LEX level range 0-15. 

INDEX range always 0-1023, without regard to Lex Level. 

Easier to read in dumps, too. 



(A0 





NORMAL 


INDIRECT REFERENCE WORD 


NIRW 
























LL 


I 


I 


I 


47 


43 


39 


35 


31 


27 


23 


19 


1 5 


1 1 


07 


03 
















l i 


LL 


I 


I 


I 


46 


42 


38 


34 


30 


26 


22 


Umtl 


14 


10 


06 


02 


















LL 


I 


I 


I 


45 


41 


37 


33 


29 


25 


21 


17 


13 


09 


05 


01 


















LL 


I 


I 


I 


44 


40 


36 


32 


28 


24 


20 


16 


12 


08 


04 


oo 



18:01 Bit = denotes NIRW. 

15:04 Fixed LEX level field. 

11:12 Fixed INDEX field. 
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NIRW EXAMPLE 



NORMAL INDIRECT REFERENCE WORD (NIRW) 
EXAMPLE 





5 1 
O 

BO 




47 


43 


39 


35 


31 


27 


23 


1 9 


15 


O 

1 1 



07 


O 
03 


46 


42 


38 


34 


30 


26 


22 




18 


1 4 



10 



06 


1 
02 


O 

49 


45 


41 


37 


33 


29 


25 


21 


17 


1 
13 



09 



OS 



01 


1 
48 


44 


40 


36 


32 


28 


24 


20 


1 6 




12 


O 
08 



04 


1 
00 



2 5 



The above NIRW 2005 is actually a reference to (2,5). 
E-MODE machines convert IRWs to NIRWs. 
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STUFFED INDIRECT REFERENCE WORD — SIRW 



Like a NIRW because it references a location in an addressing environment. 

Points to the same location regardless of the state of the current lexical 
addressing environment. 

Can reference anywhere in memory. 

Can reference an item even if it's not within the scope of the stack's addressing 
environment. 



E-MODE SIRW 



STUFFED INDIRECT REFERENCE WORD (SIRW] 




151 




SN 
47 


SN 
43 


SN 
39 


D 
35 


D 

31 


D 
27 


D 
23 


19 


15 


OF 

1 1 


OF 
07 


OF 
03 


O 
SO 


SN 
46 


SN 
42 


SN 
3 8 


D 
34 


D 
30 


D 
26 


D 
22 


G 

18 


14 


OF 
10 


OF 
06 


OF 
02 


o 

4 9 


SN 
45 


SN 
41 


SN 
37 


D 
33 


D 
29 


D 
25 


D 
21 


17 


13 


OF 
09 


OF 

os 


OF 
01 


1 
48 


SN 
44 


SN 
40 


SN 
36 


D 
32 


D 
28 


D 
24 


D 
20 


16 


OF 
12 


OF 
08 


OF 
04 


OF 

oo 



47:12 The Stack Number of the STACK containing the referenced location. 

35:16 The DISPLACEMENT from the base of the stack to the base of the 
Activation Record. 



18:1 



Bit = 1 denotes SIRW. 



12:13 The OFFSET from the base of the activation record to the referenced 
location. 
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NON E-MODE SIRW 

45:10 The Stack Number of the STACK containing the referenced location. 
46:01 Bit = 1 denotes SIRW. 
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SIRW EXAMPLE 



Given that an SIRW contains the following information: 

47:12 Stack Number 02D. 

35:16 Displacement of 01FE. 

12:13 Offset of 007. 
The following diagram illustrates the SIRW mechanism: 



ACTIVATION 
RECORD 



REFERENCED WORD > 



RCW 



MSCW 



STACK NUMBER 02D 
(STEP 1) 



OFFSET OF 007 
(STEP 3) 



DISPLACEMENT OF 01FE 
(STEP 2) 
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PROGRAM CONTROL WORD — PCW 

Points to a code syllable in a code segment. 
Normally used for procedure entry. 

E-MODE 



PROGRAM CONTROL WORD (PCW) 



o 

5 1 




SN 
47 


SN 
43 


SN 
39 


PSI 
35 


PWI 
31 


PWI 
27 


PWI 
23 


CS 
IS 


LL 

IS 


SDI 
1 1 


SDI 
07 


SDI 
03 


1 
SO 


SN 

46 


SN 
42 


SN 
38 


PSI 
34 


PWI 
30 


PWI 
26 


PWI 
22 



18 


LL 
14 


SDI 
10 


SDI 
06 


SDI 
02 


1 

49 


SN 
46 


SN 

41 


SN 

37 


PSI 
33 


PWI 
29 


PWI 
25 


PWI 
21 


LL 
17 


SDLL 
13 


SOI 
09 


SDI 
OS 


SOI 
Ol 


1 
48 


SN 

44 


SN 

40 


SN 

36 


PWI 
32 


PWI 
28 


PWI 
24 


PWI 
20 


LL 
1 6 


SDI 

12 


SDI 
08 


SDI 
04 


SDI 
00 



TAG 

47:12 

35:03 

32:13 

19:01 



18:01 
17:04 
13:01 



12:13 



SNR value when MPCW (Make PCW) is executed. 
The syllable index into the code word. 

PROGRAM SYLLABLE INDEX (PSI). 
The word index into the code segment. 

PROGRAM WORD INDEX (PWI). 
CONTROL STATE <1=C0NTR0L state, O^NORMAL state) 

CONTROL STATE : no external interrupts. /vuz^np cKjuAxv^J; \* * 

NORMAL STATE : external interrupts allowed. 

Must be zero. 

The Lexical Level for the new activation record. 

The SEGMENT DICTIONARY LEX LEVEL (SDLL). 

D[0]: Bit = (MCP code segments). 
D[1]: Bit = 1 (USER code segment). 

The SEGMENT DICTIONARY INDEX (SDI). 

Code segment descriptor is at address D[SDLL] + SDI or as an 
address couple: (SDLL,SDI). 
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NON E-MODE 

4E5:10 SNR value when MPCW executed. 

18:05 The lex level for the new activation record. 
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BASIC STACK ARCHITECTURE 
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STACK 



SAVE data segment. 

Maintains a "last in first out" (LIFO) structure. 

Contains program data or references to data (data could be code). 

Defines program environments. 

Physical top of STACK {LOSR [Limit of Stack Register]). 

Logical top of STACK (S Register). 

There are multiple PSEUDO STACK structures. 

FILE INFORMATION BLOCKS. 

PROCESS INFORMATION BLOCKS. 

TOP OF STACK 
TAGS ///////// 
/ 
V 



/ 

/ 
</////////// WORDS OF MEMORY 
/ 

/ 
<////// 

/ 
<////// 

/ 

/ 



BOTTOM OF STACK 
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PROCESS STACK 

Each execution of a code file has its own PROCESS stack. 

Can be indirectly shared by other PROCESS stacks. 

Data unique to this run of the program is kept in the Process Stack. 

EXPRESSION STACK is the last active portion of the STACK where expressions are 
evaluated. 

Commonly (and erroneously) called the D[2] stack. 

At any instant in time, shows the exact state of a program, including: 

- all procedures that have been entered 

- the value(s) of all variables 
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CODE SEGMENT DICTIONARY 

Executable code is contained in segments defined by descriptors located in the 
CODE SEGMENT DICTIONARY, sometimes called the SEGMENT DICTIONARY. 

May contain descriptors to READ-ONLY arrays. 

May contain SINGLE- or DOUBLE-precision operands. 

Items directly or indirectly in the CODE SEGMENT DICTIONARY are never modified 
by an application program. 

Each application has at least one Segment Dictionary. 

A segment of code may only be referenced by one CODE SEGMENT DICTIONARY. 

Multiple PROCESS stacks can share CODE SEGMENT DICTIONARIES and its 
associated code. 
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STATEMENTS, COMPOUND STATEMENTS, AND BLOCKS 
STATEMENT 

A STATEMENT is a simple statement without a BEGIN...END pair surrounding it. 
X := 3 READ (INF I LE, 1 i* , INBUF) 



COMPOUND STATEMENT 

Zero of more STATEMENTS bounded by a BEGIN...END pair and having no 
declarations. 



BEGIN 


BEGIN 


BEGIN 


END 


X := 3; 


Y := 2; 




END 


THRU 10 DO; 
END 



BLOCK 



A COMPOUND STATEMENT with declarations. 

BEGIN BEGIN BEGIN 

REAL X; REAL A,B,C; DEFINE NEWSEGMENT = #; 

END A := 2; END 

B := 3; 

END 

Every block gets its own code segment. 

Every block gets its own Segment Descriptor in the Segment Dictionary. 

These facts are noted in the compile listing with both an Address Couple for the 
Segment Descriptor and in the Code File Address. 
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INTERNAL PROCESSOR REGISTERS 

Each processor contains one set of special purpose registers. 

Some registers contain memory addresses for program environments (ENVIRONMENT 
registers). 

Other registers pertinent to execution and efficient indirect access to data. 

Most of these registers contain a physical memory address which is use as a base 
for indirect access to data or data segment references. 

Maintained as an array of registers. 
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ENVIRONMENT REGISTERS 

Addressing environments of the executing code stream consists of a set of local 
addressing spaces contained within stacks. 

Referred to as ACTIVATION RECORDS, LEXICAL REGIONS, or DISPLAY REGISTERS. 

Each region is given an environment number. 

The environments range from to 15 (older hardware can go higher). 

These environments are designated as DO - D15 or D[0] - D[15]. 

The current addressing environments is a linked list of LEXICAL REGIONS. 
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DO 

Memory address of the most global ACTIVATION RECORD <MCP stack). 

D1 

Primarily the memory address of the CODE SEGMENT DICTIONARY ACTIVATION 
record. 

May point to MCP LEXICAL regions. 

May address other pseudo STACK structures as LEXICAL regions. 

FILE INFORMATION BLOCK. 

PROGRAM INFORMATION BLOCK. 

D2 

Primarily memory address of applications outer block LEXICAL region. 

MiE»y also point to MCP nested- LEXICAL regions. 

<■ — \ 

D3 — D15 \ av^ s 

The current hardware supports these LEXICAL regions. ^ nj^-^ 

Older hardware may address environments up to D[31]. I 

Current hardware reference these Environments indirectly thijough ACTIVATION 
record chaining. J 
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A, B, X, AND Y REGISTERS 

The A and B registers are considered to be the two "top of stack registers". 

Whenever two operands are operated on, the values, or their addresses must be in 
the two top of stack registers. 

The X and Y registers are considered extensions of the A and B registers, 
respectively. 

For example, if a double variable is put on the top of the stack, the MSP 
may go in the A or B register and the LSP would go in the respective 
extension register. If the MSP was put in the A register, the LSP would be 
put in the X register. 

AROFF AND BROFF REGISTERS 

The AROFF and BROFF registers indicate whether the A and B registers- contain 
valid data, respectively. 

When information is placed in a register, the appropriate xROFF register is set. 
When the data in the register is invalidated, such as by a STOD operator, the 
xROFF register is reset. 
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LL REGISTER 



The lexical level of the topmost ACTIVATION record in the current addressing 
environment. 



DLL REGISTER A <^\Jh 

The memory address of the base of the topmost ACTIVATION record. 
Head of the lexical chain. 

F REGISTER 

Defines the head of the historical chain (the most current activation record). ^ 

S REGISTER 

Memory address of the last valid item in the topmost ACTIVATION record. 
Logical top of stack. 

BOTTOM OF STACK REGISTER — BOSR 

Memory address of the base of the STACK. 

LIMIT OF STACK REGISTER — LOSR 

Memory address of the bottom element in the stack as defined by its entry in the 
STACK VECTOR ARRAY. 
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STACK NUMBER REGISTER — SNR 

Index into the STACK VECTOR ARRAY. 

Used by the hardware to index into the STACK VECTOR ARRAY. 

PROGRAM SYLLABLE INDEX — PSI 

Current code syllable pointer. 

PROGRAM WORD INDEX — PWI 

Current word index of the active segment descriptor. 

SEGMENT DICTIONARY INDEX — SDI 

Index into the segment dictionary of the code's descriptor. 

PROGRAM BASE REGISTER — PBR 

Memory address of the first word of the current code segment. 
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MCP STACK 

Contains data, indirect data references and code segment references for the MCP. 

Outer BLOCK of the MCP. 

Sometimes referred to as the D [0] stack. 

This environment is visible to all STACKs present in the system. 

The highest in the hierarchy of data addressing environments. 

Contains some physical structures for the hardware. 

The D[0] register points near the base of the MCP stack. 
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STACK VECTOR ARRAY 



Vector (array) of active and available STACK entries in the system. 

Each word in the Stack Vector may be a data descriptor which may point to a 
stack. 

Maximum number of stacks depends on the total memory available (current maximum 
4096). 

The STACK VECTOR DESCRIPTOR (SVD) is declared in the MCP addressing 
environment. 



SVD is located at D [0] +2 (i.e. Address Couple (0,2)). 



MCP 



D [0] -> 



SVD 



<- STACKS -> 



STACK VECTOR ARRAY 4095 
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PROCEDURE ENTRY 

Entering a procedure is a four-step process that the compiler must generate code 
for: 

MKST (Insert a Mark Stack Control Word) 

NAMC (Generate an I RW to a PCW) 

<optional parameter placement> 

ENTR (Actually enter the procedure) 

We will omit the discussion of parameter passing until 
later. 

Before executing the ENTR operator, the top of the stack 
has: 

An incomplete MSCW. 

An IRW to the PCW of the procedure to be entered. 

When the ENTR operator is executed: 

The IRW is turned into an RCW. 

The MSCW is completed and marked as "entered". 

D Registers are updated as per the PCW. 

The processor starts executing where the PCW dictated. 
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PROCEDURE EXIT 



A procedure is exited when the EXIT or RETN operator is 
executed. (The RETN operator will be discussed later.) 

When an EXIT operator is executed: 

The S register is set to F - 1. 

The F register is set to point to the prior MSCW by 

following the History Link in the current MSCW. 

The RCW is evaluated to determine, among other things, 

where to start executing code. 

D registers are updated by following the Lex Level 

Links from the new MSCW. 
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COBOL PROCEDURE ENTRY AND EXIT 

As; COBOL is not a block structured language, it does not 
handle procedure entry and exit (i.e. PERFORMs) the same way 
that block structured languages do. 

When the COBOL compiler encounters a PERFORM statement, it 
determines where the exit point is for the PERFORM. 

A "serial number" is assigned to every possible exit point. 

Entering a procedure (doing the PERFORM) consists of the 
compiler placing on top of the stack a PCW of where to come 
back to and then the "serial number" of the exit point. A 
"go to" is done to enter the procedure. 

At: every exit point, code exists to see if the serial number 
left on top of the stack matches the serial number for the 
exit point you are at. 

If the "serial numbers" don't match, the program falls 
through to the next statement. 

If the "serial numbers" do match, the PCW left on the stack 
is used to do a "go to" back to the PERFORM. 

The concept of a BAD GO TO does not exist in COBOL. 
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PROGRAM EXAMPLES 



BEGIN 
REAL 

R (2,2) 

.R2 (2,3) 

» 
INTEGER 

I (2,M 

DOUBLE 

D (2,5) 

» 
ARRAY 

AR [0:9] (2,6) 

» 
DOUBLE ARRAY 

DA [0:9] (2,7) 

» 
EBCDIC ARRAY 

EA [0:9] (2,9) 

HEX ARRAY 

HA [0:9] (2, A) 

t 
POINTER 

PJJNINITIALIZED (2,B) 

,P_INITIALIZED (2,C) 

ARRAY REFERENCE 

AR_REF_UNINITI ALIZED (2,D) 



REINITIALIZED := EA [9]; 
END OF PROGRAM. 
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BEGIN 
REAL 

R (2,2) 

» 
ARRAY 

A [0:9] (2,3) 

» 
EBCDIC ARRAY 

AR [0] = A (2,M 

POINTER 

GP (2,5) 

PROCEDURE P; (2,6) 

BEGIN 
REAL 

R2 (3,2) 

» 
ARRAY 

A2 [0:9] (3,3) 

POINTER 

PA (3,M 

,PA2 (3,5) 



PA := POINTER (A [2]) + 3;; 
PA2:= POINTER (A2 [2]) + 3? 



END; 

P; 



END. 
endf ixed 
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BEGIN 
REAL 
R 
» 
ARRAY 

A [0:9] 
» 
EBCDIC ARRAY 
AR [0] = A 
» 
POINTER 
GP 
» 
PROCEDURE P; 
BEGIN 
REAL 
R2 

ARRAY 

A2 [0:9] 
» 
POINTER 
PA 
,PA2 

PROCEDURE P2; 
BEGIN 

ARRAY A3 [0:9]; 
POINTER PA3; 

PA := POINTER (A [2]) + 3 
PA2:= POINTER (A2 [2]) + 3 
PA3:= POINTER (A3 [2]) + 3 



(2,2) 

(2,3) 

(2, ii) 

(2,5) 
(2,6) 

(3,2) 

(3,3) 



(3,4) 
(3,5) 

(3,6) 

(4,2) 
(4,3) 



END; 

P2; 

END; 
P; 
END OF PROGRAM. 
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BEGIN 
REAL 
R 
» 
ARRAY 

A [0:9] 
» 
EBCDIC ARRAY 
AR [0] = A 
» 
POINTER 
GP 
» 
PROCEDURE GPPROC;^ 
BEGIN j 

REAL R2; I 



(2,2) 

(2,3) 

(2,10 

(2,5) 
(2,6) 
(3,2) 



/^ END; 
PROCEDURE P; 
BEGIN 



(2,7) 



REAL 
R2 
» 
ARRAY 

A2 [0:93 

POINTER 
PA 
,PA2 



PROCEDURE P2;| 
BEGIN 

ARRAY / A3 [0:93; 
POINTER / PA3; 



/ 



tf 



PA 

PA2 

PA3 



= POINTER (A [2]) + 3; 
= POINTER (A2 [2]) + 3; 
= POINTER (A3 [2]) + 3; 



GPPROC;' 
END; 

\ R2 := 75; 

R := 50; 

P * > 

END OF PROGRAM. 



(3,2) 



(3,3) 



(3,M 
(3.5) 

(3,6) 

(4,2) 
(4,3) 
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STACK LINKAGE WORDS 
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MARK STACK CONTROL WORD — MSCW 

To place information in the stack as to where prior MSCWs are as well as what 
"D" register should point here. 



E-MODE 



S^ r' i *S 



MARK STACK CONTROL WORD (MSCW) 





51 




SN 
47 


SN 
43 


SN 

39 


D 

35 


D 

31 


D 
27 



23 


RS 
19 


LL 
15 


HL 
1 1 


HL 
07 


HL 
03 



50 


SN 
46 


SN 
42 


SN 
38 


D 
34 


D 
30 


D 
26 


D 
22 


E 
18 


LL 
14 


HL 
10 


HL 
06 


HL 
02 


1 
49 


SN 
45 


SN 
41 


SN 
37 


D 
33 


D 
29 


D 
25 


D 
21 


LL 
1 7 


HL 
13 


HL 
09 


HL 
OS 


HL 
01 


1 
48 


SN 
44 


SN 
40 


SN 
36 


D 
32 


D 
28 


D 
24 


D 
20 


LL 
1 6 


HL 
12 


HL 
08 


HL 
04 


HL 
OO 



TAG 
47:12 



STACK of previous Lex Level's Activation Record. 



35:16 The DISPLACEMENT field. 

18:01 The ENTERED bit (0 = not entered, 1 = entered). 

17:04 The LEX Level which this activation record runs. 

13:14 The HISTORY between this MSCW and the prior MSCW. 

Bits 47:12 and 35:16 are collectively called the "Lex Level Linkage". They point to 
the prior Lex Level's Activation Record. For example, if we're running at Lex 
Level 4, the Lex Level Linkage would point to the Activation Record for Lex Level 
3. This may or may not be in the same stack. 

Bits 13:14 are called the "History Linkage". They point to the prior Activation 
Record's MSCW in this stack without regard to Lex Levels. 



fc«^^*»& 



(jtJL0 



^ w v4^ 
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DS 


SN 


SN 


D 


D 





D 


RS 


LL 


HL 


HL 


HL 


5 1 




47 


43 


39 


36 


31 


27 


23 


16 


1 S 


1 1 


07 


03 





E 


SN 


SN 


D 


D 


D 


D 


LI 


LL 


HL 


HL 


HL 


so 




46 


42 


38 


34 


30 


26 


22 


18 


14 


io 


06 


02 


i 


SN 


SN 


SN 


D 


D 


D 


D 


LL 


HL 


HL 


HL 


HL 


49 




45 


4 1 


37 


33 


29 


26 


21 


17 


1 3 


09 


05 


01 


1 


SN 


SN 


SN 


D 


D 


D 


D 


LL 


HL 


HL 


HL 


HL 


46 




44 


40 


36 


32 


28 


24 


20 


1 6 


12 


08 


04 


oo 



18 :05 

13:14 



TAG 




47 


01 


46 : 


01 


45 : 


10 



Previous Lex Level's Activation Record is in a 
DIFFERENT STACK. 

The entered bit (O = not entered, 1 * entered). 

STACK number of prior Lex Level's Activation 
Record . 

35:16 DISPLACEMENT from BOSR to MSCW Of Prior Lex Level 

19:01 Position in operator flow to restart: 

« restart from beginning, 1 « restart from next 

sy 1 lab) e . 

The LEX level which the act i vat i on , record runs. 

The HISTORY LINK. 
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MSCW LEX LEVEL VERSUS HISTORY LINKAGES 
LEX LEVEL LINKAGE 



The Stack Number /D i sp lacement fields together constitute the 
Lex Level Linkage. 

The Lax Level Linkage identifies where the prior Lex Level's 
D register should point. 

For example, if D [ 3 ) points at the current MSCW. the Lex 
Level Linkage can be used to locate the MSCW where D [2] 
points. This may or may not be in the same stack. 



HISTORY LINKAGE 



The History Link field points to the prior MSCW in this 
stack . 

No consideration is given as to Lex Levels for the History 
Linkage. 



WHY THE TWO 



The two linkages are mainly used for procedure exit. 

The History Linkage is used to know how far to cut back the 
stack when the program exits a procedure. 

The Lux Level Linkage is used to re-establish the addressing 
environment to what it was prior to entering the procedure. 
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LEX LEVEL VERSUS HISTORY LINK DIAGRAM 



D[0] > 



MSCW 



MCP 



D[l] > 



MSCW 



SEG DICT 



■DC3] > 



-D[3] > 



D[2] > 



MSCW 



MSCW 



MSCW 



PROCESS 



Lexical Links are shown on the left sides of the stacks. 
History Links are shown on the right sides of the stacks. 
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RETURN CONTROL WORD ~ RCW 



To tell the hardware where to continue executing code when this procedure is 
exited. 

Note that an RCW tells where to go — not necessariily where we came from. 
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RETURN CONTROL WORD 



o 

51 




EX 
47 


RS 

43 


EO 

38 


PSI 
36 


PWI 
31 


PWI 
27 


PWI 
23 


CS 

19 


LL 
15 


SDI 
1 1 


SDI 
07 


SDI 
03 


o 
so 


OF 
46 


42 


38 


PSI 

34 


PWI 
30 


PWI 
26 


PWI 
22 



18 


LL 
14 


SOI 
10 


SOI 
06 


SDI 
02 


1 

48 


TF 
45 


BE 

4 1 


37 


PSI 
33 


PWI 
29 


PWI 
25 


PWI 

2 1 


LL 
17 


SDLL 
13 


SDI 
09 


SDI 
05 


SDI 
01 


1 
48 


FL 
44 


EO 
40 


36 


PWI 
32 


PWI 
28 


PWI 
24 


PWI 
20 


LL 
1 6 


SDI 
12 


SOI 
08 


SDI 
04 


SDI 
00 



TAG 

47:01 

46:01 

45:01 

44:01 

43:01 

41:01 

40:02 
35:03 






^f>' 



o 



\ 



External sign flip-flop. r5> 

Overflow flip-flop. 

True/false flip-flop. 

Float flip-flop. 

Restart indicator (0 = initial, 1 = restart state) 

Arms BLOCKEXIT interrupt from EXIT or RETN 
■ disarmed, 1 « armed 

Optimization of EXIT/RETN. 

The syllable code stream pointer. 

PROGRAM SYLLABLE INDEX (PSI). 



32:13 Word index into the code segment. PROGRAM WORD 
INDEX (PWI). 

19:01 CONTROL STATE 

1 = CONTROL STATE: no external interrupts, 
= NORMAL STATE: external interrupts allowed. 

18:01 Must be zero. 

17:04 The lexical level for the new activation record. 

13:01 The SEGMENT DICTIONARY LEX LEVEL (SDLL). 

0: D [0] (MCP code segment) 
1: D [1] (USER code segment) 

12.13 The SEGMENT DICTIONARY INDEX (SDI). 

Points to the code segment descriptor. 
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NON E-MODE 

The following bits are not valid: 
43:01 RS 

41:01 BE 

40:02 EO 

The following bits are not included: 
42:01 True/false occupied flip-flop. 
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ACTIVATION RECORD 

A combination of MSCW and RCW that is generated as a result of entering a 
procedure. 

An Activation Record indicates things about this procedure such as: 

The Lex Level {and hence what D register points at it) the procedure runs at. 

The location of the prior Lex Level's Activation Record {the Lex Level 
Linkage). 

The location of the prior MSCW in this stack {the History Linkage). 

Where to go when this procedure is EXITed (provided by the RCW). 
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TOP OF STACK CONTROL WORD — TOSCW 









cV- ftW d 



^ 



^ ,J> 



Goes at the bottom/ of a Process stack when the stack is inactive. 



/ 



«*' 



f 



/ 



It allows the processor to set up some of its registers such as S and F when it 
goes to execute this stack. *"" 

When the Process stack is active, the processor id (a number from zero to eight) 
is in the bottom of the stack. 



E-MODE 



TOP OF STACK CONTROL WORD 





5 1 




47 


43 


39 


SH 
35 


SH 
31 


SH 
27 


SH 
23 


19 


15 


SF 
1 1 


SF 
07 


SF 
03 



BO 


46 


42 


38 


SH 
34 


SH 
30 


SH 
26 


SH 
22 


1 8 


14 


SF 
10 


SF 
06 


SF 
02 


1 

49 


45 


4-1 


37 


SH 
33 


SH 
29 


SH 
25 


SH 
2 1 


17 


SF 
13 


SF 
09 


SF 
05 


SF 
01 


1 
48 


44 


40 


36 


SH 
32 


SH 
28 


SH 
24 


SH 
20 


16 


SF 
12 


SF 
08 


SF 
04 


SF 
OO 



TAG 3 

35:16 Logical Stack Height (SH). S := BOSR + SH. 

13:14 S to F Displacement (SF). F :- S - SF. 
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NON E-MODE 



The foll< 


owing fields have been deleted: 


47:01 


ES 


46:01 


OF 


45:01 


TF 


44:01 


FL 


42:01 


TFOF 


41:01 


CiCompare flip-flop. 


19:01 


CS 


18:05 


LL 



The above deleted fields can be obtained from the other STACK linkage words. 
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PROGRAM INITIALIZATION 
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BASE OF STACK 

Contains the fixed portion of the stack built by the MCP. 

Contains a descriptor to the program's TASKFILE. 

Contains a descriptor to the array information table (AIT) used for 
multi-dimensioned arrays. 

Contains a descriptor to the OWN information table (OIT) used for arrays declared 
OWN. 

Dummy MSCW. 

Contains overlay file information pointers. 
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FIRST EXECUTABLE PCW ~ FEP 

PCW located In the segment dictionary which represents the first syllable of 
execution In the program. 

Normally points to the stack building code of the outer block. 

Location of FEP is pointed to by the first record of the code file usually called 
SEGMENT ZERO or BLOCK ZERO. 

Normally ALGOL location is at (1,2). 

Floats for COBOL {after last variable entered in the segment dictionary). 
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TASK INITIALIZATION PROCESS 

1. MCP searches for the code file. 

2. MCP validates code file kind. 

3. SEGMENT ZERO of code file is read into memory. 

4. SEGMENT DICTIONARY size determined. 

5. STACK number selected for SEGMENT DICTIONARY. 

6. Space acquired for the SEGMENT DICTIONARY. 

7. STACK VECTOR ARRAY descriptor updated. 

8. Compiler-built SEGMENT DICTIONARY read from code file to memory starting 

at MSCW slot after fixed BASE. 

9. STACK number selected for PROCESS stack. 

10. Fixed BASE built. 

11. Dummy MSCW, RCW built called DUMMY RUN (used as platform for 

execution of NORMALEOJ). 

12. MSCW RCW pair built return set to execute NORMALEOJ. 

13. MSCW RCW spare built to be used as user RCW exit, 

14. MSCW RCW pair built for entry into NORMALBOJ. 

15. Rest of stack filled with 4"BADBADBADBAD". 

16. STACK inserted into queue for tasks waiting for the processor (READYQ) in 

priority order. 

17. Stack selected by processor. 

18. EXITS into NORMALBOJ. . , ^ ^A- ^ 

19. NORMALBOJ performs remaining initialization tasks. (, > \j 



20. NORMALBOJ installs FEP into USER RCW previously built. 

21 NORMALBOJ exits into user code. 

22. Upon completion of user task, the processor EXITS into NORMALEOJ. 

23, NORMALEOJ performs task termination duties. 
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PARAMETERS 
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PARAMETER PASSING 

Parameters are a formalized way of giving selected Information to and receiving 
selected information back from a procedure. 

Parameters to a procedure appear first in the stack before any local variables. 

Sequence of events for entering a procedure with parameters is: 

Mark the stack with an MSCW 

Create an IRW to the PCW location where the procedure we are 
entering is. 

Place actual parameters) on top of stack 

Enter procedure. 
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CLASSIFICATIONS OF PARAMETERS 
FORMAL 

Parameters which are described in the procedure header. 

Treated as local variables to the procedure body. 

Parameters are assigned the first local index cell(s) prior to declarations of the 
procedure body. 

ACTUAL 

Parameters actually passed to the procedure in invocation statement. 
ACTUAL parameters must match FORMAL parameters* in number and type. 

BEGIN 
REAL R; 

PROCEDURE P (W) ; 

REAL W; % FORMAL PARAMETER W 
BEGIN 
W := 52; 
END OF PROCEDURE P; 

P (R) ; % ACTUAL PARAMETER R 

END OF PROGRAM. 
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REFERENCE TYPES 
BY VALUE 

Actual expression is evaluated once prior to procedure call. 

Any reference to the associated FORMAL parameter within the procedure body only 
modifies the local procedure copy and does not affect the ACTUAL parameter. 



BY REFERENCE 

A reference to the ACTUAL parameter is passed (SIRW). 

Any use of the associated FORMAL parameter causes interrogation or modification 
to the ACTUAL parameter passed. 



BY NAME 

Each use of the associated FORMAL parameter causes re-calculation of the 
ACTUAL reference. 

Re -calculation causes a procedure entry called "accidental entry". 

Sometimes called "THUNK". 

Expressions (i.e. 3 + X) can be passed, but only interrogation is allowed if the 
result does not produce a reference. 

Any attempt to store into a non reference producing ACTUAL parameter would 
cause program fault (INVALID OP). 

A further description will follow in a few pages. 



Copyright © 1986 Joseph & Cogan Associates, Inc. 

A Burroughs Company 



EXAMPLES 



PAGE 154 



BEGIN 
REAL 

ACTUAL 1 
,ACTUAL_J 

» 


(2,2) 
(2,3) 


PROCEDURE P (FORMALJ, FORMAL£J) ; 
VALUE FORMAL J; 
REAL 

FORMAL 1 
,FORMAL_J 


(3,2) 
(3,3) 


» 
BEGIN 

REAL LOCAL X; 
FORMALJ := 52; 
FORMAL J := ACTUAL 1 + 2; 
END OF PROCEDURE P; 


(3,*») 



% Main line of program. 
ACTUALJ := 20; 
ACTUAL_J := 100; 

P (ACTUALJ, ACTUAL_J) ; 
END OF PROGRAM. 



3, 4 

/ 
1.0 






5&¥± n . 



JA 



~5L!*L 



6 J& - 
JL££- 



P N 
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THUNK AND ACCIDENTAL ENTRY 

Passing an expression as a parameter causes the expression to be re-evaluated at 
every reference in the "passed-to" procedure. 

How does this re-evaluation occur? 

Upon detecting that an expression is being passed "by name", the compiler 
generates a small procedure that will do the re-evaluation. 

Then, instead of passing a value or data address to the procedure, the compiler 
generates code which passes an SIRW to the PCW for the procedure that does 
the re-evaluation. 

Whenever the called procedure asks for the value or address of the "by name" 
parameter, the hardware automatically invokes the procedure to do the 
re-evaluation. 

This automatic procedure invocation by the hardware is where the name "accidental 
entry" is derived from. It is also called a "thunk". 
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BY-NAME PARAMETER EXAMPLE 



Consider the following program example: 



BEGIN 




REAL Y; 




PROCEDURE A 


(B); 


REAL B; 




BEGIN 




B := 3; 




Y := 2; 




B := 5; 





END OF PROCEDURE A; 

REAL ARAY X [0:9]; 

% Main line of program. 

A (X[Y]); 

END OF PROGRAM. 

What has this program just done? 
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TYPED PROCEDURES 

Called "functions". 

Is really nothing more than a procedure that returns a value. 

Very similar to the Intrinsic functions such as SIN, COS, TAN, and TIME. 

When entering a procedure, an extra location is placed in the stack for the 
"procedure value". 

The compiler notes this if $ SET STACK is set. 
The procedure value comes after any parameters. 
The procedure value comes before any local variables. 

Instead of doing a normal EXIT operator to exit a procedure, the compiler will 
generate a RETN (Return) operator. This operator exits the procedure, but leaves 
whatever value was on top of the stack as the value of the procedure. It is the 
compiler's responsibility to make sure the procedure value is on top of the stack 
when the RETN operator is executed. 

In fact, this is how "thunks" are done. The compiler generates a small typed 
procedure that returns the result of the expression that is re-evaluated at every 
usage. 
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STACK REVIEW 
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BASIC STACK REVIEW 

Review PROGRAMDUMP for: 

JSD/C0NCEPTS/LL2 
Find location of address couples. 
Find location of SDI:PWI:PSI. (003:0000:1) 
Find length of each segment. 

X IS SEGMENT 00004. 

X (004) LENGTH IS 8 WORDS. 
Notice outer block identification is BLOCK#1. 
This is because there is no explicit name like a procedure has. 
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PROGRAMDUMP 
HEADER 



MIX numbers. 
Machine 
BOSR location 
Local BOX location. 

Program name. 

MCP Field Release.Patch Release. Cycle 

MCP name. 

INTRINSICS 

SYSTEM SERIAL. 
HOSTNAME. ' 

Cause of dump. 

PROGRAM REQUESTED 

FAULT TERMINATION 

DSED TERMINATION 

SPO REQUESTED 
RCW history. 

Line number (notice they are absent: no LINEIMFO) 

SDI:PWI:PSI 

PROGRAMDUMP options. 
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BODY 

LOSR 

LOSR - BOSR = Relative offset 



Items by column: 
Offset 

Address couple 

Environment Locations (D register settings). 
TAG 

Stack word 

Word type (OP, RCW, SEG, CODE) 
Word description 
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CODE 

SEG DESC is the code segment descriptor (SDI) for each RCW. 

CODE represents a moving window of actual code. 

>01808EABDF60< represents SDIrPWI for code lexical region will return to. 

SEGMENT dictionary DUMP is helpful if code that appears is not enough to analyze 
code history that caused the failure. 

OPTION = CODE 

Locate the PWLPSI for each RCW. 
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JSD/C0NCEPTS/LL3 

Build the stack (at PROGRAMDUMP}. 
Include: 



SEGMENT DICTIONARY stack. 
BASE 

Program code segments 
First Executable PCW <FEP). 

PROCESS stack. 
BASE 

Stack building code for Outer Block 
Stack for local procedure X. 
S 
F 

BOSR 
LOSR 
MSCW 

History linkage. 

Activation record linkage. 
RCW 



Review PROGRAMDUMP. 

Find code syllable each RCW is pointing to. 
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JSD/C0NCEPTS/LL4 

Build the stack with the following: 

Include: 

SEGMENT DICTIONARY stack. 
BASE 

Program code segments 
First Executable PCW (FEP). 

PROCESS stack. 
BASE 

Stack building code for Outer Block 
Stack for local procedures. 
S 
F 

BOSR 
LOSR 
MSCW 

History linkage. 

Activation record linkage. 
RCW 
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PROBE 



Given the following program: 

BEGIN 

REAL VAR1.VAR2; 

DOUBLE VAR3; 

PROCEDURE D (D1,D2,D3) ; 
VALUE D1.D2.D3; 
REAL D1,D2,D3; 
PROGRAMDUMP; 

PROCEDURE A (A1,A2) ; 

VALUE A1,A2; 

REAL A1.A2; 
BEGIN 

ARRAY X [0: 10] ; 

PROCEDURE C (CI) ; 
REAL CI; 

D (C1,VAR1,VAR2) ; 



PROCEDURE B 


(Bl); 


VALUE 


Bl; 


REAL 


Bl; 


C (Bl); 




B (Al); 




END; 




VAR1 := 1; 




VAR2 := 18; 




A (VAR1.VAR2) ; 





END OF PROGRAM. 
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Build the stacks at the point in which the program forced a program dump. 
Include the following: 



SEGMENT DICTIONARY stack. 
BASE 

Program code segment descriptors 
First Executable PCW (FEP) 



PROCESS stack. 
BASE 

Stack building code for Outer Block 
Stack for local procedures 
S 
F 

BOSR 
LOSR 
MSCW 

History linkage. 

Activation record linkage. 
RCW 
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DUMPANALYZER 
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MEMORY DUMPS 
OVERVIEW 

Me;mory dumps are a snapshot of memory. 

Multi-processing is discontinued during dumping the contents of memory. 

A MEMDUMP routine within the MCP executes in a portion of memory that is 
reserved for dumping without destroying the state of usable memory. 

Media for output is usually TAPE. 

Dump to disk is also possible. 
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CAUSES 

Operator requested using the DUMP ODT command. 
Operator requested using the ??DP primitive. 
System generated because of: 

Potential software failures. 

Potential hardware failures. 

General diagnostic. 

Reset TERMINATE; MCP run-time option (any failure such as INVALID INDEX 
or SEG ARRAY ERROR will cause a dump). 
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INTRODUCTION 

DUMPANALYZER produces user-specified subsets of information from a memory 
dump. 

Analyzes information according to parameters given or default. 
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MODES 
INTERACTIVE 

Commands are processed separately as It is entered by the user. 
Can specify where output is to be sent (printer or remote). 

STANDARD 

Commands entered completely before processing. 
Ouitput always directed to the printer. 
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SAVED DUMPS 

Stored for future processing without requiring original memory dump input TAPE. 
Faster future processing. 
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EXECUTION 

Normal tape input. 

RUN *SYSTEM/DUMPANALYZER; 

Saved dump. 

RUN *SYSTEM/DUMPANALYZER; 

FILE TAPEIN <KIND*=DISK,TITLE=MEMORY/DUMP/TITLE); 

Select run mode: STANDARD or INTERACTIVE 

Memory dump tape is processed with the following responses: 

Initial options display. 

Initializing. 

Reading <dump file name> 

Initializing stack info. 

Lineinfo/names. 

Enter requests... 
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BASIC CONSTRUCTS 

Numbers default is hexadecimal. 
<simple address 
<absolute> 

4F3A2 

<simple location 

STK 4A3 
PIB A6 
STK 682 + 7 
RV M [47AC2] 

<multiple address 

More than one memory address. 
4AF3 FOR A6 
3BAC TO 3BCB 
STK 32 LOSR TO BOSR 



<simple value> 



M [4A32] 
DEC 100 

Partial words are available. 
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COMMANDS 
AREAS 

Prints contents of memory areas. 
Areas can be searched by type or size. 

AREAS SIZE 512 

AREAS ODDBALL FIBMARK 

BOX 

Designates local box to use for some memory commands. 

DC 

Causes a full data communications analysis to be "printed. 

DEADLOCK 

Causes information to be printed regarding stacks that hold locks or waiting for a 
lock. 
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FIB 

Analyzes a FIB at a given address. 
FIB AT 4A3DE 

HDR 

Causes an analysis of the disk file header stack. 

HELP 

Provides information about DUMPANALYZER commands. 
HELP AREAS 
HELP HELP 
HELP <number> 

IO 

Invokes input/output analysis of all peripherals. 
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IOCB 

Causes an I/O control block to be printed. 

LINKS 

Prints the address and contents of each link of a memory area. 

LOCKS 

Reports on the status of soft (PROCURED) locks. 

MD 

Dumps the contents of a group of address in memory with no analysis. 
MD 6DE43 FOR A6 



NAMES 



Causes the entire list of MCP names and D [0] relative address. 
Names appear in numeric and alphabetic sequences. 
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PIB 

Prints the contents of a PIB. 

PRINTER 

Routes output to the printer instead of the terminal. 

PRINTVALUE/PV 

Displays the specified <simple vaiue> in several possible forms. 

QUEUE 

Displays DCALGOL queues. 
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RELEASE 

Closes the current print file. 

RELX 

Causes the current print file to be closed and printed {using SYSTEM/BACKUP). 

REMOTE 

Routes output to the terminal rather than the printer. 

SAVE 

Causes the memory dump to be stored on disk for future use. 

MOP names and memory contents are retained releasing the need of having the 
current MCP code file and original memory dump tape. 

SAVE "MEMORY/DUMP" 
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SEARCH 

Provides the ability to check each word in memory for a specified pattern of bits. 

Can search including TAG. 

SEARCH MOMDESC RANGE 3DE9 FOR 6F 

Command which initiates a memory search for a specific PATTERN optionally using 
a MASK. 

MASK 

Used to mask fields for searching. 

PATTERN 

Bit configuration to search for. 
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STACK 

Causes the contents of a stack to be interpreted and printed. 

STOP 

Terminates execution. 

SUMMARY 

Provides the list of stacks in the machine and the status of the stacks at the time 
the dump was take. 
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WHERE 

Displays the D[0] relative location of <MCP global names^. 
WHERE BLOCKEXIT 



Response: 00A BLOCKEXIT 



WHO 



Displays the MCP global name for a D[0] relative address. 
WHO 00A 
Response: 00A BLOCKEXIT 
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ASD CHANGES 

DUMPANALYZER now allows the displaying of memory pointed to by an ASD entry 
by using the "via" option: 

MD via 4425 for 20 

(will print out the twenty words of memory pointed to by ASD entry 
4425) 

ASDNUMBER <asd #> [EXPAND] 

The above command will display the ASD entry requested. 
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ADVANCED STACK ARCHITECTURE 
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SHARED GLOBAL ENVIRONMENTS 
OVERVIEW 

Internal procedures may be initiated as a separate stack executing in step 
(SYNCHRONOUS) or in parallel (ASYNCHRONOUS). 

The external task(s) is(are) dependent upon the initiator (or parent). 

The block which is designated as the CRITICAL BLOCK must not attempt to exit 
before its dependent children terminate. If this happens, a CRITICAL BLOCK EXIT 
error is issued. 

The scope of visibility of variables remains the same if the procedure was invoked 
in the caller. 

Global variables may be interrogated or modified by the caller and all dependent 
processes. 

Resource protection (LOCKs) is the means to coordinate access to shared 
variables. 
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EXAMPLE 

What will be the value of the variable I at EOT? 



BEGIN 
REAL I; 
TASK TSK; 




PROCEDURE P; 
BEGIN 
REAL X; 

X :- 24; 
I :- 52; 
END OF PROCEDURE P; 


I := 22; 
PROCESS P 
I := 75; 


[TSK] ; 



WHILE TSK. STATUS GEQ DO 

WAITANDRESET (MYSELF . EXCEPTI ONEVENT) ; 

END OF PROGRAM. 
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INTRINSIC INTERFACE 
OVERVIEW 

Inlrinsics are a set of general utility routines which can be invoked as if they 
where procedures declared in each programs environment. 

The environmental software comes with a set of these routines which appear in 
the GENERALSUPPORT library. 

The user has the option to create his own utility routine library (INTRINSICS). 

This interface was available prior to the implementation of libraries. 
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LINKAGE PROCESS 

1. The first call to an intrinsic (i.e SQRT) causes a slot to be reserved in the 
programs SEGMENT DICTIONARY. 

I := SQRT (9); 

(1,5) - SQRT 

2. This slot contains an invalid word required for procedure entry (PCW). 

5 070000 000001 < Intrinsic Number 

3. The code to execute the above call to SQRT would be: 
ALGOL: 

SQRT (9) 

CODE: 

MKST 

NAMC (1,5) 

LT8 9 < Parameter to the SQRT Intrinsic 

ENTR 

4. The ENTR would cause an INVALID OPERATOR interrupt to to occur due to 
the fact that it is trying to enter a data descriptor instead of a PCW. 

Note: This type of interrupt (entering a tag 5 word with an Element Size of 7) is 
called a "Binding Request". 

5. The hardware interrupt routine would recognize the TAG of 5 and the 
ELEMENT size of 7 as an INTRINSIC call. 

6. The address field contains the numeric mnemonic representation of SQRT. 

7. The MCP then changes the invalid TAG 5 word to a SIRW pointing to the 
location of the PCW in the GENERAL SUPPORT LIBRARY or the INTRINSIC 
stack. 

8. The INTRINSIC stack contains data, PCWS and SEGMENT descriptors (much 
like the MCP stack). 

9. The intrinsic routines run at LEX level 2. 
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MCP INTERFACE 
OVERVIEW 

1. Each call to an MCP procedure (i.e PROGRAMDUMP) causes a slot to be 
reserved in the programs SEGMENT DICTIONARY. 

PROGRAMDUMP (ARRAYS) ; 

(1,5) = MCP reference; 

2. This slot contains an invalid word required for procedure entry (PCW). 

5 070000 FFE017 

3. The code to execute the above call to PROGRAMDUMP would be: 

MKST 

NAMC (1,5) 

<0PTI0NS Parameter> 

ENTR 

4. The ENTR would cause an INVALID OPERATOR interrupt to to occur due 
to it finding a data descriptor instead of a PCW. 

5. The hardware interrupt routine would recognize the TAG of 5, the ELEMENT 
size of 7 and the FFE in the length and address fields as an MCP procedure 
call. 

6. The address field contains the mnemonic representation of PROGRAMDUMP. 

7. The MCP then changes the invalid TAG 5 word to a SIRW pointing to the 
location of the PCW in the MCP stack. 

8. The MCP stack contains data, PCWS and SEGMENT descriptors. 

9. The MCP intrinsic routines run at LEX level 1 since they are actually declared 
at LEX level 0. 

10. The ENTR operator is re-executed and the MCP procedure is invoked since 
the target is now a valid PCW. 

11. Actually, all MCP or INTRINSIC references are resolved in NORMALBOJ. 
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PASSING PROCEDURES AS PARAMETERS 
OVERVIEW 

Procedures may also be passed as parameters to other procedures. 

Procedures may be passed to: 

Internal procedures that are invoked. 

internal procedures that are executed as dependent processes. 

Separately compiled programs. 

Activation record environment depend on the location in which the procedure 
passed as a parameter is DECLARED. 

There may be multiple D[2] references in this complex stack linkage environment. 
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EXAMPLE 



Main Program 



BEGIN 

REAL R; (2,2) 

TASK TSK; (2,3) 

PROCEDURE P; (2,4) 

PROGRAMDUMP; 

PROCEDURE EXT(PROC); (2,5) 

( PROCEDURE PROC () ; (3,2) 

X FORMAL; 

V ^ EXTERNAL; 

REPLACE TSK. NAME BY "OBJECT/EXT."; 
PROCESS EXT (P) [TSK]; 

WHILE TSK. STATUS GEQ DO 

WAITANDRESET (MYSELF . EXCEPTI ONEVENT) ; 

END OF PROGRAM. 



OBJECT/EXT 

$ LEVEL 2 

PROCEDURE EXT_PROC (PI) ; 

PROCEDURE PI () ; (2,2) 

FORMAL; 
BEGIN 

REAL X; (2,3) 

PI; 
END OF PROCEDURE EXT PROC AND PROGRAM. 
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LIBRARY INTERFACE 
OVERVIEW 

This type of linkage essentially is the same as passing a procedure as a parameter. 
The syntax to invoke the library procedure is different. 
The caller and the library are usually separate programs. 
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LINKAGE PROCESS 

THE CALLER 



1. The compiler builds a TEMPLATE which describe the 
following: 

o attributes of the library 

o TITLE of the code file 

o Procedures which should appear in the library 

o The count and type of the parameters of the library routine. 



2. The compiler builds an invalid PCW at the location where the procedure in 
the library is declared in the caller. 

PROCEDURE PJNJJB; (2,5) 

LIBRARY LIB; 



5 670001 4808E9 (2,5) 

3. The caller invokes the procedure with the following code: 

MKST 

NAMC (2,5) 

ENTR 

4. The ENTR operator would cause an INVALID OPERATOR interrupt because the 
target is not a PCW. 

5. The MCP hardware interrupt routine would recognize that this is a library call 
because: 

TAG 5 
INDEX bit on 
ELEMENT size 7 

6. The ADDRESS field of this word contains the memory address of the actual 
location of the TEMPLATE 

7. The LENGTH field contains an index into the TEMPLATE for the procedure 
which we are trying to invoke. 

8. An MCP library linkage routine is call which causes the actual library to be 
automatically invoked. 
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9. After the linkage is made the MCP routine inserted an SIRW at (2,5) which 
points to the actual PCW for the library procedure. 

10. The ENTR operator is re-executed. 
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THE LIBRARY 



11. The library begins executing as a normal program. 

2. For each procedure referenced in the EXPORT declaration the compiler 
inserts into a library DIRECTORY the name of the procedure, the number and 
types of parameters, and an SIRW to the actual PCW for the procedure. 

3. When the library program executes a FREEZE, an MCP procedure is called to 
make this program a LIBRARY. 

o Shrinks the stack. 

o Looks around for any task looking for this program as a library. 

4. When a caller is found the library procedure which it wants to invoke is 
searched for in the libraries DIRECTORY. 

5. The count and type of parameters are verified in both the callers TEMPLATE 
and the libraries DICTIONARY. 

6. If the parameters match the libraries SIRW for the actual procedure is placed 
in the callers slot reserved for the procedure. 

7. All references to procedures which the caller wants in a library are resolved 
at upon the first reference. 
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EXAMPLE 

CALLER 

BEGIN 

REAL X; (2,2) 

LIBRARY LIB (TITLE = "OBJECT/LIB."); (2,3) 

PROCEDURE P_IN_LIB; 
LIBRARY LIB; 

PJNJ.IB; 

END OF PROGRAM. 

OBJECT/LIB 

BEGIN 

PROCEDURE GLOBAL_P; (2,2) 

PROGRAMDUMP; 

PROCEDURE P_IN_LIB; (2,3) 

BEGIN 

REAL R; (3,2) 

GLOBAL_P; 
END OF PROCEDURE PJNJ.IB; 

EXPORT PJNJ.IB; 

FREEZE (TEMPORARY) ; 

END OF PROGRAM. 
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PROGRAM INFORMATION BLOCK — PIB 
OVERVIEW 

The PIB contains TASK attribute information. 

Any reference to TASK attributes causes D[01] to point into the PIB structure. 

The PIB is treated like a stack so that access to attributes is accomplished by 
normal variable addressing since the activation record pointed to by D[01] 
contains all of the PIB information. 
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FILE INFORMATION BLOCK — FIB 
OVERVIEW 

The FIB contains directly or indirectly all the elements of the file structure. 

Many of these elements are FILE attributes. 

Referencing the FILE structure causes D [01] to point within the FIB. 

The FIB is treated like a stack so that access to attributes is accomplished by 
normal variable addressing since the activation record pointed to by D[01] 
contains all of the FIB information. 
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CODE FILE CONSTRUCTION 
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INTRODUCTION 

The following subjects will be reviewed in appendix B "Code File Construction" 
and with program listings. 

Code File Layout 

Segment Zero 

Segment Dictionary 

File Parameter Blocks (FPBs) 

Compiler/Intrinsic Interface 

Binding " < f k ' ^ '« ' 

Lineinfo 
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OPERATING SYSTEM INTERFACE 
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CODE FILE LAYOUT 



Review the text in the appendix. 

Demonstrate actual SEGMENT ZERO in dumpall listing of: 
CODESTRUCTURE/TEST/STACK 



/ < 

i . ■ 
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SEGMENT ZERO 

Review the text in the appendix. 

Build the following of the SEGMENT DICTIONARY. 

Fixed portion of the stack (BASE). 

Actually perform READWITHTAGS. 

First location is the MSCW. 
Use the dumpall listing of: 

CODESTRUCTURE/TEST/STACK 

Build the SEGMENT DICTIONARY from the dumpall list. 
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SEGMENT DICTIONARY 

Once you have built the SEGMENT DICTIONARY, relate all stack items to address 
couples in the compile listing. 
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PROBE 

Using the dumpall listing: 

CODESTRUCTURE/TEST/STACK 

1. Build the complete SEGMENT DICTIONARY including the BASE and analyze each 

of the fields of each of the words. 

2. Locate and determine the value of the fields of the FEP. 

3. Find the code syllable pointed to by the FEP. 

4. Find the syllable pointed to by PCWS given to you by the instructor. 
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FILE PARAMETER BLOCKS — FPB 

Review the text of the appendix. 
Review the DUMPALL listing. 

Records 1 and 2 (0 relative) are PPBS. 
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COMPILER/INTRINSIC INTERFACE 

Compiler places invalid descriptors (SIZEF = 7) jn the Segment Dictionary. 
MOP changes them to SIRWs to the procedure's actual PCVV. 
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BINDING 
OVERVIEW 

The process of merging separately-compiled procedures into a main host creating a 
single executing unit. 

BINDING also allows inter-language procedures to be combined and invoked. 

The BINDER is a compiler who is responsible for merging of the separate code 
pieces into one. 

This facility was developed before libraries were implemen- ted. 

Many sites still use the binder. 

The MCP is built with separate inter-language modules which is bound to the MCP 
host producing a running MCP code file. 
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GLOBAL DECLARATIONS FOR BINDER 

The languages provide the capability to reference GLOBAL variables when compiling 
a separate unit. 

ALGOL 

[ 

REAL GL0BAL_R1; 

PROCEDURE GLOBAL_PROCEDURE; 

FILE GLOBAL^FILE; 

] 



COBOL 

01 GL0BAL_REC0RD GLOBAL. 

03 GLOBAL-ELEM PICTURE X(100). 
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EXTERNAL DECLARATIONS FOR BINDER 

The syntax for declaring an external procedure which is to be bound is: 
ALGOL 

BEGIN 

PROCEDURE B0UNDPR0C; 

EXTERNAL; % Note that the body of the 

% procedure is replaced by the 
% word EXTERNAL. 

BOUNDPROC; % A normal invocation. 

END; 

COBOL74 

DECLARATIVES. 

BOUNDPROC. 

USE AS EXTERNAL PROCEDURE. 

END DECLARATIVES. 

PERFORM BOUNDPROC. 
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BINDER SYNTAX 

The syntax for binding includes: 

HOST IS OBJECT/HOST; 

BIND BOUNDPROC FROM OBJECT/BOUNDPROC; 

The binder must know about the names and address couples in both the host and 
the separate routine to resolve the differences. 

If the BINDER does not find a reference in the HOST that was declared GLOBAL 
in the routine to be bound, the BINDER will add this item to the HOSTS outer 
block declarations. 

Internal procedures may be replaced using the BINDER. 

The resultant code file has the FILEKIND of BOUNDCODE. 

BOUNDCODE files may be used as HOSTs. 



Copyright© 1986 Joseph & Cogan Associates, Inc. 



A Burroughs Company 



PAGE 212 

BINDER CONVENTIONS 

See Appendix B, Code File Information, of the Student Appendix. 

For BINDER to be able to do its job, it must be able to find out about all of a 
program's declarations. 

These declarations are encoded and kept in the code file (unless the compiler 
dollar option NOBINDINFO is set). 

UNIVERSAL CLASS 

Is used to determine the rough category of tokens in the code file. 

This could be things such as INFORMATION KEYWORD, DATA DESCRIPTOR, 
PCW, FILE, TASK, etc. 

SUB CLASS 

Within a given Universal Class, what more specifically is being discussed. 

For example, for a Universal Class of 2 [two] (48-bit Operand), some of 
the possible Sub Classes recognized are: 

Single Precision Operand (INTEGER) 

1 Single Precision Operand (REAL) 

2 Single Precision Operand (BOOLEAN) 

3 WORD Variable 

4 REFERENCE Variable 
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PROGRAM DESCRIPTION 

A structure in the code file that defines all procedures in the program and all 
external references, such as intrinsics and global variables. 
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PROCEDURE DIRECTORY 

A structure in the code file that lists all of the procedures in a program, 
regardless of their lex level. 
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EXTERNAL DIRECTORY 

A directory of what items are outside of this program, such as intrinsics. 
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LOCAL DIRECTORY 

For each procedure, there is a Local Directory enumerating the items declared 
within that procedure. 

These items could be ARRAYS, REALs, INTEGERS, and even other PROCEDURES. 
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PRINTBINDINFO 

Review example in the Printed Listings. 

Documented in the System Software Support Manual. 

Mainly, reads a code file and generates its declarations, without any executable 
code. 
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FPB/PPB RUN TIME 

Review the File Parameter Block and Program Parameter Blocks in the code file. 
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LINEINFO 

This information relates SDI:PWI:PSI locations to program sequence numbers. 
Used to when analyzing RCWs when producing a PROGRAM DUMP. 
Controlled by the following compiler dollar option: 

$ SET LINEINFO 
Defaults to SET when compiling under CANDE. 
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LINE DICTIONARY 

This item is the READONLY descriptor referenced by the SDI 1 (1,1). 

Each word of the LINE DICTIONARY contains the relative record in the code file 
of- the beginning of the sequence information. 

The LINE DICTIONARY is indexed by the SDI of the code pointer we are trying to 
find the sequence number for. 

SDI :0 SDI:1 SDI :2 SD I : 3 

000000000000 000000000000 000000000000 000000000002 

Record 2 of the code file contains the sequence number information for SDI 3. 



Copyright © 1986 Joseph & Cogan Associates, Inc. 



A Burroughs Company 



PAGE 221 



FORMAT OF SEQUENCE RECORDS 



Word 0: 



Word 1: 



[39:20 ] Total character count of entire sequence number record 
starting at word 1. 

[19:20] Back link to previous sequence informiation for the same SDI. 



2 bytes PWhPSI for the beginning of the code for the following 
sequence number. 

[15:12] PWI 

[02:03] PSI 

















15 


1 1 






3 




7 










14 


io 


6 












2 






13 


g 


5 






1 






12 


8 


4 






O 





















1 byte 

ssssss 



Word 2-N: 



Binary length of the sequence number. 
Actual sequence number. 

Word 1 format continues until end of sequence information. 
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EXAMPLE ^ A " 

,^ , 

\J~ Q\ Assi/me SD I : 3 

\ fJ\ ( ^^ \Xuut \7<X> 

090002C00000 :(000£OjFOFOFO FOF 1 F 1 FOFojbo^OlJoJFOFOFOFO 

FlF7FOFC)loOOC( 08fOFOFOFOF3 F7FOF(jfcoi5p8 FOFOFOFOF3F8 



W2 
Total length 2C (44) characters. 



OO 



3:0:0 starts sequence 1100 
3:0:1 starts sequence 1700 
3:1:4 starts sequence 3700 
3:2:5 starts sequence 3800 

If an RCW contains 3:1:2, what line would it referenced 
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PROBE 

Using dumpall listing for: 

CODESTRUCTURE/LINEDICTIONARY 

1. Build SEGMENT DICTIONARY. 

2. Find FEP. 

3. Find syllable pointed to by FEP. 

4. Find line numbers for instructor given SDI:PWI:PSI 

sequences. 

5. Build 3 items of the EXTERNAL directory. 

6. Locate 1 procedure directory record. 

7. Locate and process 5 items from a LOCAL directory. 

8. Identify if there is any run time FPB/PPB information. 
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MACHINE OPERATOR SET 
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REVERSE POLISH NOTATION 
OVERVIEW 

Arithmetic or logical notational system using only operands and operators arranged 
in sequence or strings. 

Eliminates the need for intermediate storage for multiple computations. 

Well suited to stack architecture. 

Example: 

A + B + C 

Reverse Polish Notation 

AB+C+ /\(fr c ^ A - 0? ^ C 

Polish Notation 
++ABC 
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EXAMPLES 

Expression Reverse Polish String 

7 * (B + C) 7 B C + * 

Y + 2 * ( W + V ) Y 2 W V + * + 

A AND B AND NOT C A B AND C NOT AND 



/\iJ o*~ 



A( fr ~~ c 



A-*-<& )/c -D 



-h 






-2. 



/ 
J M 



\J 



AtA" 



X 




A- ^ c p 



4C> 



-CO- 
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REFERENCE GENERATION OPERATORS 
NAMC 40-7F 

Niame call operator transforms an address-couple in the code stream into: 

NON-EMODE: an IRW 

E-MODE: an NIRW 

The address couple given in the code stream is variable fence. 
Examples: 

5002 NAMC (2,2) 

7003 NAMC (3,3) 

4017 NAMC (0,17) 

6005 NAMC (1,5) 
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LNMC 958C 

Long name call is equivalent to NAMC except that its parameter is a fixed fence. 

STFF AF 

The stuff operator converts an IRW or an NIRW into an SIRW. 
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INDX A6 

The index operator applies an integer index to an un-indexed data descriptor and 
leaves on top of the stack an Indexed Data Descriptor to the specified element. 

If the data descriptor is a word data descriptor, the result is an Indexed Word 
Data Descriptor. 

If the data descriptor is a Character Data Descriptor, the result is a Pointer. 

IRW chaining will occur, if required. 

INXA E7 

The index by means of address couple operator is functionally equivalent to the 






<?&<=* 



INDX operator except that the address couple follows the INXA operator as a ,^t> 

fixed fence. s-/\ <r* 




t^ViOU)^ 



&*• 
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OCRX 9585 

The Occurs Index operator computes an offset into a record. 

It is primarily used by COBOL for array handling and ALGOL for CASE statements. 

The two top-of-stack items must be: 

Occurs Index Word (Index Control Word) 

Index 

The format of an Occurs Index Word is: 

lh"J : 16] Width Coefficient (width of each occurrance) 

[31:16] Upper Bound (one-relative) 

[15i 16] Offset Coefficient (from beginning of record) 

OCRX calculates a zero-relative offset from the beginning of the record which can 
be used by the INDX (or similar) operator. 

The formula used by OCRX is: 

Relative Index = Offset + (Index - 1) * Width 

As the OCRX operator assumes one-relative indices, if the Index value is less than 
one or greater than the Upper Bound, an INVALID INDEX interrupt will occur. 
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MPCW BF 

The make PCW constructs a PCW at the top of the stack from a six syllable 
parameter in the code stream. 

The TAG is changed to a 7. 

The SNR is also inserted into the STKNRF. 

The parameter to the MPCW operator must start on a word boundary. 

Any syllables after the MPCW and before the parameter are ignored (usually filled 
wiith Hex TF"s). 
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READ EVALUATION OPERATORS 
VALC 00-3F 

The value call operator evaluates a reference chain whose head is an address 
couple parameter. 

The end result must be an operand. 

If a PCW must be evaluated, accidental procedure entry is performed. 

The parameter is a variable fence address couple. 

EXAMPLES: 

1002 VALC (2,2) 



3003 VALC (^ZD 2>^> 

2002 VALC (1,2) 



LVLC 958D 

The long value call is equivalent to the VALC except that its parameter is a 
fixed-fence address couple. 
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NXLV AD \^ 

The index and load value operator performs an INDX operation to produce an 
Indexed Word Data Descriptor and then evaluates the Indexed word data descriptor 
to fetch an operand. 

IRW chaining can occur. 

NXVA EF gc*& 

The index and load value by means of fixed fence address couple parameter is 
functionally the same as the NXLV operator. 



NXLM A5 iftMj pj^° 



The index and load name operator performs an INDEX operation to produce a 

Indexed Word Data Descriptor and then evaluates to fetch an un- indexed data 
descriptor. 

Copy bit action occurs. 
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EVAL AC 

The evaluate operator is used to evaluate a reference chain in order to locate 
some target and then leave on top of the stack the reference whose evaluation 
produced the target. 

This operator is used when the actual target is needed for execution of another 
operator (String transfer). 

NliWP uses this operator prior to passing a parameter by reference to guarantee 
the SIRW points to the target. 





f f. ^ $ 




t* * .* , ,v° 



/ ..^ 



** ^ v l °,^ S 
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LOAD BD 



The load operator fetches a target and places it on top of the stack. 

If the reference is a NIRW (IRW NON-EMODE) the target is fetched and placed on 
top of the stack. 

If the reference is a Word or a Double Indexed Data Descriptor the target is 
fetched and placed on top of the stack. 

If the target is a Data Descriptor, copy bit action will occur. 



LODT 95BC 



The load transparent operator performs a LOAD operation. 

The reference can be a 20 bit address reference. 

If the target is a Data Descriptor, Dfi-jsogybit action occurs (an original descriptor- 
is fetched and place on top of the stack). 







f 






r 



j? 



V 



**J 
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STORE EVALUATION OPERATORS «* 

7 > 

STOD B8 

The store delete operator places the operand at the top of the stack at the 
reference pointer. 



The order of the operand and reference pointer may vary. &C j ^40 ■A qc * 






M 



The reference pointer may be an NIRW (IRW for NON-EMODE) or an Indexed Data 
Descriptor. 

IRW chaining may occur. 

If the target referenced is a PCW accidental procedure entry occurs producing a 
new reference. 

Both the reference and the operand are deleted from the top of the stack. 

If the target location has the memory protect bit on, an interrupt occurs. 



STON B9 

The store non-delete operator performs a STOD function, except that at 
completion of the operation the original operand is left on stop of the stack. 

The reference is deleted from the top of the stack. 

If the target location has the memory protect bit on, an interrupt occurs. 
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STAD F6 £^ pl 

The store delete by means of address couple is functionally equivalent to the 
STOD operator except that the reference is a fixed-fence address couple 
parameter. 

Both the reference and the operand are deleted from the top of the stack. 

If the target location has the memory protect bit on, an interrupt occurs. 

STAN F7 

The store non-delete by means of address couple is functionally equivalent to the 
STON operator except that the reference is a fixed-fenced address couple 
parameter. 

The reference is deleted from the top of the stack. 

If the target location has the memory protect bit on, an interrupt occurs. 



Copyright© 1986 Joseph & Cogan Associates, Inc. 

A Burroughs Company 



PAGE 238 



OVERWRITE OPERATORS 



V) 



OVRD BA v^V^ 

An overwrite delete essentially performs the STOD operator, except that no 
interrupt occurs if the target has the memory protect bit on (i.e. has an odd tag). 

The reference and the operand are deleted from the top of the stack. 



OVRN BB 

The overwrite non-delete functional performs a OVRD operator except that the 
operand is left on top of the stack. 

The reference is deleted from the top of the stack. 






<fi 



/V 



^ 



r \ 
\ 
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COMPUTATIONAL OPERATORS 
ADD 80 

The add operator performs an arithmetic ADD operation on the top 2 operands on 
top of the stack. 

The result is left on the top of the stack. 

Program Segment: 

REAL 

Rl (2,2) 

,R2 (2,3) 

* 

Rl := Rl + R2; 
Code String: 

Non-EMODE: 

1002 1003 80 5002 B8 
VALC (2,2) VALC (2,3) ADD NAMC (2,2) STOD 

EMODE: 

1002 1003 80 F62002 
VALC (2,2) VALC (2,3) ADD STAD 
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SUBT 81 

The subtract operator takes the numeric value of the top item and algebraically 
subtracts is from the numeric value of the second item in the stack. 

The result is rounded and left on top of the stack. 

Program Segment: 

REAL 

Rl (2,2) 

,R2 (2,3) 

,R3 (2,4) 

» 

Rl := R2 - R3; 
Code String: 

Non-EMODE: 

1003 1004 81 5002 B8 
VALC (2,3) VALC (2,4) SUBT NAMC (2,2) ST0D 

EMODE: _ ^ ^ 

HK^ ^. KX>3X 81 F62002 

VALC (2,3J VALC (2,£l SUBT STAD 
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MULT 82 

The multiply operator algebraically multiplies the top two items in the stack. 
The result is rounded and left on top of the stack. 

DIVD 83 

The divide operator algebraically divides the numeric value of the second item by 
the numeric value of the first item in the stack. 

The result is rounded and left on top of the stack. 

NTGR 87 ^° 

INTEGER function in ALGOL 

The integerize rounded operator converts the operand on top of the stack to an 
integer by rounding and leaving the result on top of the stack. 



NTIA 86 

ENTIER function in ALGOL. 

Integerize truncated returns the greatest integer value less than or equal to the 
operand. 



DIFFERENCE BETWEEN NTGR AND NTIA 

There is a small but significant difference between the two operators. Effectively, 
NTGR adds 0.5 to the value and then does an NTIA. 



The following table should help to illustrate: 



Value NTGR NTIA 

3 






-3»2 -3 -'+ "3 



3.2 3 

3-5 h 
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COMPLEX ARITHMETIC EXAMPLE 

Program Segment: 

BEGIN 

REAL 

Rl (2,2) 

,R2 (2,3) 

,R3 (2,4) 



NTEGER 

II (2,5) 

,12 (2,6) 



II := Rl + R2 * 12 / R3; 
Rcjverse Polish Notation String: 

Rl R2 12 * R3 / + II := 

Code String: 

Non EMODE: 

1002 1003 1005 82 
VALC (2,2) VALC (2,3) VALC (2,5) MULT 

1004 83 80 87 5005 B8 
VALC (2,4) DIVD ADD NTGR NAMC (2,5) STOD 



EMODE: 

1002 1003 1005 82 

VALC (2,2) VALC (2,3) VALC (2,5) MULT 

1004 83 80 87 F62005 

VALC (2,4) DIVD ADD NTGR STAD 
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IDIV 84 

The integer divide operator causes the numeric value of the second item in the 
stack to be divided by the numeric value of the first item in the stack. 

The fractional part of the quotient is discarded. 

The integer part is left on top of the stack. 

R := Rl DIV R2; 



Examples: 



8 DIV 2 = h 
8 DIV 3 = 2 
8 DIV 5 = 1 



RDIV 85 



The remainder divide causes the numeric value of the second item in the stack to 
be divided by the first item in the stack. 

The integer quotient with remainder is generated. 

The remainder is left on top of the stack. 



Examples: 



R := Rl MOD R2; 



8 MOD 2 = 
8 MOD 3 = 2 
8 MOD 5 = 3 
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AMIN 9588 



The arithmetic minimum compares the numerical values of the top two items on top 
of the stack. 

The lesser of the two items is left on top of the stack. 



AMAX 958A 



The arithmetic maximum compares the numerical values of the top two items in the 
stack. 

The greater of the two items is left on top of the stack. 
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LOGICAL OPERATORS 

Logical operators use one or two items on top of the stack as 48 or 96 bit 
vectors. 

These items may be of any type. 

The logical operation is applied in parallel to each bit of the vector. 

The logical value of the result depends only on bit zero. 

TRUE = 1 
FALSE = 
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LNOT 92 

The LOGICAL NOT operator causes all bits of the item on top of the stack to be 
complemented. 

The TAG is unchanged. 

Program Segment: 

REAL 

Rl (2,2) 

» 
BOOLEAN 

Bl (2,3) 

, 

Rl : = 

1" 101 1101 01 1 101 1000010001 1 100001 1 100000001 101 10010"; 
Bl := NOT BOOLEAN (Rl) ; 

Code Segment: 

VALC (2., 2) LNOT NAMC (2,3) ST0D 

Result: 

Before 1"101 1 10101 1101 1000010001 1 100001 1 100000001101 10010"; 
After 1 "01000101000101 11 1101 110001 11 10001 11 1111001001 101"; 

The logical value of B1 is TRUE. 

Program Segment: 

REAL 

Rl (2,2) 

,R2 (2,3) 

» 

Rl := FALSE; % A WORD OF ALL ZEROS 

R2 := REAL (NOT Rl) ; 

Code String: 

ZERO NAMC (Rl) STON VALC (2,2) LNOT NAMC (2,3) STOD 

Result: 

Before : 1 "000000000000000000000000000000000000000000000000" 
After : 1 " 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 111 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 " 
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The logical value of R2 is TRUE. 

The above example is functionally the same as the commonly used: 
R2 := REAL (NOT FALSE) ; 
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LAND 90 

Logically ANDs the two items on top of the stack. 

The result is left on top of the stack. 

The TAG is double-precision if the result is double. 

The TAG is the same as the TAG of the second item in the stack. 

The truth table for LAND is as follows: 



AND 





1 











1 





1 
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Program Segment: 

REAL 
Rl 
,R2 
,R3 



Rl : = 

1 "0 1 0000 1001 1 1 1 1 1 101010101 000 1 1 1 1 1 1 0000 1 1 1 1 000 1101"; 
R2 : = 

1" 10100010 1000010101 0001 1 1 1 1 10001010100001 1 10001 10"; 



R3 := REAL (BOOLEAN (Rl) AND BOOLEAN (R2) ) ; 
Code String: 

VALC (Rl) VALC (R2) LAND NAMC (R3) STOD 

Results: 

R 1 : 1 "01 0000 100111111101010101000111111 0000 1111 000 1101" 
R2: 1" 1010001010000101010001 111110001010100001110001 10" 

After: 000000 1 000000 1 1 1 000 1 1 000000 1 1 000000 1 1 0000 1 00 

The logical value of R3 is FALSE. 
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LOR 91 



Logically ORs the top two items in the stack. 

The result is left on top of the stack. 

If the result is double-precision the TAG is double. 

Otherwise the TAG is the same as the second item in the stack. 

The truth table for LOR is as follows: 



OR 





1 








1 


1 


1 


1 
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Program Segment: 

REAL 
Rl 
,R2 

» 

Rl : = 

1 "01 0000 1 00 1 1 11 11 1 1 1 1 1 000 111111 0000 1 1 1 10001 101"; 
R2 : = 

1 " 1 1 000 1 1 0000 1010100011111100010101 0000 111000110"; 

R3 := REAL (BOOLEAN (Rl) OR BOOLEAN (R2) ) ; 
Code String: 

VALC (Rl) VALC (R2) LOR NAMC (R3) STOD 
Results: 

R 1 : 1 "0 1 0000 1 00 1 1 1 1 1 1 101010101 000 111111 0000 1111 000 1101" 
R2: 1" 1010001 010000101 010001 1111 10001010100001 1 10001 10" 

After: 1 1 1 000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 111 1 1 1 1 1 1 00 1 1 1 11 00 1 1 1 1 
The logical value of R3 is TRUE 
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LEQV 93 

The result of the logical equivalence of the top two items on the stack is 
performed. 

The result is left on top of the stack. 

If the result is double-precision the TAG is double. 

Otherwise the TAG is the same as the second item on the stack. 

The truth table for LEQV is as follows: 



EQV 


j\ ° 


1 







1 







1 





1 
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Program Segment: 

REAL 
Rl 
,R2 

,R3 

» 

Rl : = 

1 "0 1 0000 100111111101010101 000 1 1 1 1 1 1 0000 1 1 1 1 000 1101"; 
R2 : = 

1" 10100010 10000 1010100011 111 100010101000011 1000110"; 

R3 := REAL (BOOLEAN (Rl) EQV BOOLEAN (R2) ) ; 
Code String: 

VALC (Rl) VALC (R2) LEQV NAMC (R3) STOD 

Result: 

Rl: 1 "0100001001111111010101010001 1 1 111000011110001101" 
R2 : 1 " 101000101 0000 1 1 1 000 1 1 1 1 1 1 000 10101 0000 1 II 1 000 1 1 0" 

After: • 0001 1 1 1 100000101 1 1101 101000000101 101 1001 101 10100 

The logical value of R3 is FALSE. 
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EXCLUSIVE OR 



P 



& 



There is no processor operator that performs the EXCLUSIVE OR operation. 

The following simulates this function using the logical operators already discussed. 

The truth table for EXCLUSIVE OR is as follows: 



XOR 





1 








1 


1 


1 





1 
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Program Segment: 

REAL 
Rl 
,R2 

,R3 
» 

Rl ; = 

1 "0 1 0000 1 00 11 1 1 1 11 1 1 1 1 000 1 1 1 111 0000 1 1 1 1 000 1101"; 
R2 : = 

1 " 1 1 000 1 1 0000 1 1 1 000 1 1 1 1 1 1 000 1 1 1 0000 1 1 1 000 1 1 0" ; 

R3 := REAL (NOT (BOOLEAN (Rl) EQV BOOLEAN (R2) ) ) ; 
Code String: 

VALC (Rl) VALC (R2) LEQV LNOT NAMC (R3) STOD 

Results: 

R 1 : 1 "0 1 0000 1 00 1 1 1 1 11 1 1 1 1 1 000 1 1 111 1 0000 111 10001 101" 
R2 : 1 " 1 1 000 1 1 0000 1 1 1 000 111 1 1 1 000 1 1 1 0000 1 1 1 000 1 1 0" 
EQV 

Temp : 000 11111 00000 10111101101 000000 1 1 1 1 1 00 11 1 1 1 00 

LNOT 
After: 1 11000001111101000010010111111010010011001001011 

The logical value of R3 is TRUE. 
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RELATIONAL OPERATORS 

The relational operators algebraically compare the numeric value of the top two 
operands on top of the stack. 

The result is left on top of the stack. 

The form of the result is a BOOLEAN. 

BIT ZERO 
1 = TRUE 
= FALSE 



All other bits of the result are 0. ^ 
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SAME 94 (T"0 [o^r * ^ ' 

The logical SAME operators actually performs the function of logical operators. 

The top two items in the stack are compared bit by bit for equal. 

All bits are compared in parallel. 

The result is left on top of the stack. 

The result is a BOOLEAN. 

If all bits are the same, the result is TRUE. 

If all bits are not the same, the result is FALSE. 
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Program Segment: 

REAL 
Rl 
,R2 
» 
BOOLEAN 
Bl 
» 

Rl : = 

1 "0 1 0000 1 00 1 1 1 11 11 1 1 1 1 000 1 11 1 1 1 0000 1 1 1 10001 101"; 
R2 : = 

1 " 1 1 000 1 1 0000 1 1 1 000 1 11 111 000 1 1 1 0000 1 1 1 000 1 1 0" ; 

Bl := Rl IS R2; 

Code Stream: 

VALC (Rl) VALC (R2) SAME NAMC (Bl) STOD 

Result: 

R 1 : 1 "0 1 0000 1 00 1 1 1 1 1 11 1 1 1 1 000 1 11 1 1 1 0000 11110001101" 
R2 j 1 " 1 1 000 1 1 0000 1010100011111100010101 0000 111000110" 

SAME 

Af ter : 000000000000000000000000000000000000000000000000 

The value of B1 is FALSE. 
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LESS 88 

LESS leaves TRUE result If the second from top-of-stack; operand is arithmetically 
less than the top of stack operand and a FALSE result otherwise. 

Rl LSS R2 



LSEQ 8B 

LSEQ leaves TRUE result if the second from top-of-stack operand is arithmetically 
less than or equal to the top of stack operand and a FALSE result otherwise. 

Rl LEQ R2 
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EQUL 8C 



EQUL leaves TRUE result if the second from top-of-stack operand is arithmetically 
equal to the top of stack operand and a FALSE result otherwise. 

Rl EQL R2 



NEQL 8D 

NEQL. leaves TRUE result if the second from top-of-stack operand is arithmetically 
not equal to the top of stack operand and a FALSE result otherwise. 

Rl NEQ R2 
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GREQ 89 

GREQ leaves TRUE result If the second from top-of-stack operand is arithmetically 
greater than or equal to the top of stack operand and a FALSE result otherwise. 

Rl GEQ R2 



GRTR 8A 

GRTR leaves TRUE result if the second from top-of-stack operand is arithmetically 
greater than the top of stack operand and a FALSE result otherwise. 

Rl GTR R2 
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LITERAL OPERATORS 

Places a single precision constant on top of the stack. 

ZERO BO 

ZERO leaves on the top of the stack a single-precision word with all bits 
initialized to zero. 

Program Segment: 

Rl := 0; 
Code Stream: 

ZERO NAMC (Rl) STOD 

ONE B1 

ONE leaves on the top of the stack a 1-bit integer equal to 1. 
Program Segment: 

Rl := 1; 
Code Stream: 

ONE NAMC (Rl) STOD 



Copyright© 1986 Joseph & Cogan Associates, Inc. 



A Burroughs Company 



PAGE 263 

LT8 B2 

Insert 8 bit literal* leaves on top of the stack an 8-bit integer that is a copy of 
its one-syllable parameter. 

Program Segment: 

Rl := 100; % Rl = (2,2) 

Code Stream: 

B264 5002 B8 
LT8 (100) NAMC (Rl) ST0D 

LT16 B3 

Insert 16 bit literal;) leaves on top of the stack a 16-bit integer that is a copy 
of its two-syllable parameter. 

Program Segment: 

Rl := 4096; % Rl = (2,2) 

Code Stream: 

B31000 5002 B8 
LT16 (if096) NAMC (Rl) ST0D 
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LT48 BE 

Insert 48 bit literal leaves on the top of the stack a single-precision operand that 
is a copy of its six-syllable parameter. 

Similar to the MPCW operator. 

The parameter (i.e. the 48 bit literal) must start on a word boundary. 

All syllables are ignored between the LT48 operator and its parameter. 

Program Segment: 

Rl := "ABCDEF"; % Rl = (2,2) 

Code Stream: 

BEFFFFFFFFFF C1C2C3C^C5C6 5002 B8 

LTif8 /"ABCDEF") NAMC (Rl) STOD 
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BRANCHING OPERATORS 

Provide for altering the processor's sequence through the code stream. 
Branches may be conditional or un-conditional. 
May be static or dynamic. 
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STATIC BRANCHES 



A two-syllable parameter designates the PWfcPSI within the current segment. 



Branching may only occur within the same code-segment (SDI). 



[15:03] = PSI 
[12:133 = PWI 



















a 


15 






1 1 


7 


3 






'14 






10 


. 


/ 

2 




■/ 


/ 
13 






s 


5 


1 
















4 


I 








12 




8 















Example: 

Value PWI : PSI 
6005 5 : 3 



7$ 



P^ 






nT 






5^ 
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BRUN A2 

Processor registers PSI and PWI are set from the parameter. 

The code-stream transfers to the next operator in that code segment. 

GO TO XIT 
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BRTR A1 

The top-of-stack item is interpreted as a BOOLEAN value. 



^ 



If the logical value is FALSE: 

PWI:PSI are set to the next operator. 
Sequential processing continues. 
Fall through. 

If the logical value is TRUE: 

PWI:PSI are set to parameter values. 

The processor begins execution at that point in the code-stream. 

Actual branch occurs. 




r ? 



<uk 
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BRFL AO 

The top-of-stack item is interpreted as a BOOLEAN value. 
If the logical value is TRUE: 

PWI:PSI are set to the next operator. 

Sequential processing continues. 

Fall through. 

If the logical value is FALSE: 

PWhPSI are set to parameter values. 

The processor begins execution at that point in the code-stream. 

Actual branch occurs. 
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STATIC BRANCH EXAMPLES 

Program Segment: 

BEGIN 
REAL 

Rl (2,2) 

,R2 (2,3) 

,R3 U,h) 



BOOLEAN 

B (2,5) 



Rl := 25; 
R2 := 35; 

IF (B := Rl GTR R2) 
THEN 

Rl := R2 
ELSE 

Rl := R3; 

END. 
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Code Stream: 

IF (B : = Rl GTR R2) THEN 

VALC (Rl) VALC (R2) GRTR NAMC (B) STON BRFL 7:3 

3:4:2 1002 1003 8A 5005 B9 A06007 
% . . 

Rl := R2 

VALC (R2) NAMC (Rl) STOD BRUN 8:2 

3:6:1 1003 5002 B8 A24008 

%. „ 

ELSE 

Rl := R3; 

VALC (R3) NAMC (Rl) STOD 

3:7:3 1004 5002 B8 

% . . 

3:8:2 
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Program Segment: 



REAL 
Rl 
,R2 
,R3 



(2,2) 

(2,3) 
(2,k) 



BOOLEAN 
B 



(2,5) 



Rl := 25; 
R2 := 35; 

IF NOT (B := Rl GTR R2) 
THEN 

Rl := R2 
ELSE 

Rl := R3; 

END. 
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Code Stream: 

IF NOT (B := Rl GTR R2) THEN 

VALC (Rl) VALC (R2) GRTR NAMC (B) STON BRTR 7:3 

3:4:2 1002 1003 8A 5005 B9 A06007 
% . 

Rl := R2 

VALC (R2) NAMC (Rl) STOD BRUN 8:2 

3:6:1 1003 5002 B8 A24008 

% 

ELSE 

Rl := R3; 

VALC (R3) NAMC (Rl) STOD 
3:7:3 1004 5002 B8 



3:8:2 
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DYNAMIC BRANCHES 

The top-of-stack item contains the code-stream pointers. 

The branch may with the current segment or a different segment. 

IRW chaining will occur if the item on top of the stack is an NIRW (IRW on 
non-EMODE). 

If the target is a PCW: 

SDI:PWI:PSI are set from the PCW. 

The LEX level in the PCW must be the same as the current LEX level (LL). 

The control state indicator is ignored. 
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DYNAMIC BRANCH TARGETS 

If the target is an operand: 
Integerized. 
Rounded. 
Uses a 14 bit integer. 

[15:02] = Ignored 

D3:13] = PWI (note awkward shape of field) 

[00:01] = PSI indicator: 

If this bit is on, 

PSI := 3, 
el se 

PSI := 



Example: 

















15 




1 1 


7 


3 




14 




10 


6 


2 














1 






13 






















12 


8 


4 




n 

















Value PWI : PSI 
0015 A 3 



The operand form is typically used in the CASE statement. 




p A f H ce*W fbiA^ 






ftf, {J* 
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DYNAMIC BRANCH EXAMPLE 



77 I 


1 PIC ; 


9 (ID 


i BINARY. 


PAIR- 


-A-SEC 




SECTION. 


PAR- 


-A. 










PERFORM PAR-B- 


•SEC. 






MPCW 


BF 


3:4:0 






LT8 


B2 


04 






NAMC 




501 A 






DBUN 


AA 






STOP 


RUN. 






PAIR- 


-B-SEC 




SECTION. 


PAR- 


•B. 










MOVE 


1 TO 
ONE 


1 . 
Bl 








NAMC 


(1) 


5005 






STOD 


B8 








DUPL 


B7 








LT.8 


B2 


Ok 






SAME 


94 








BRFL 


AO 


5:5 






DLET 


B5 








DBUN 


AA 





= (2,5) 



3:1:5 
3:1:5 

3:1:5 

3:3:0 

(2.1A) 3:3:2 

3:3:5 
3:4:0 



PCW = 4:3:5 § (2, 1A) 
4:3:5 
4:3:5 



4:3:5 

(2,5) 4:4:0 

4:4:2 



4:4:3 
4:4:4 

4:4:5 
4:5:0 

4:5:3 
4:5:4 

4:5:5 

If the PERFORM target paragraph was in the same section, a BRUN would have 
been used. 
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WORD MANIPULATION OPERATORS 

Provide the capability to alter any partial field of a word in the stack. 
Basic elements. 



Destination word. 

Source word. ~4^f d>,f (^j- ^^w. Di T ' 

Number of bits to transfer. 
Field bits. 

Destination start bit ("to" bit). 

Source start bit ("from" bit). 

The altered, destination item is left on top of the stack. 

If the source is double-precision the second word (LSP) is discarded. 

If the destination is double-precision the first word is altered, the second word 
remains unchanged. 

Static and dynamic operators. 

Static operators obtain the following values from the parameter: 

Source start bit. 

Destination start bit. 

Number of bits to transfer. 
Dynamic obtain its these values from items on top of the stack. 
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BSET 96 

Bit: set initializes a destination bit to 1. 
The destination bit is specified by the parameter. 
The destination is the word on top of the stack. 
The result is left on top of the stack. 
Program Segment: 

R1.C36:1] := 1; % Rl = (2,F) 

Code Stream: 

100F 9624 500F B8 

VALC (Rl) BSET (36) NAMC (Rl) STOD 

DBST 97 

Dynamic bit set is functionally the same as the BSET operator. 

The destination bit is the item on top of the stack. 

The destination word is the second item on top of the stack. 

The result is left on top of the stack. 

Program Segment: 

R1.[BIT:1] := 1; % Rl = (2,2F), BIT = (3,7) 

Code Stream: 

102F 3007 97 502F B8 

VALC (Rl) VALC (BIT) DBST NAMC (Rl) STOD 
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BRST 9E 

Bit reset initializes a destination bit to 0. 
The destination bit is specified by the parameter. 
The destination is the word on top of the stack. 
The result is left on top of the stack. 

DBRS 9F 

Dynamic bit is functionally the same as the BRST operator, 
The destination bit is the item on top of the stack. 
The destination word is the second item on top of the stack. 
The result is left on top of the stack. 
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ISOL 9A 



Field isolate: 

Initializes a single precision destination word to zero. 
Sets its low order field from a field in the source. 

The source start bit is the first parameter. 

The number of bits to isolate is the second parameter. 

The destination start bit is calculated as follows: 

destination start bit = number of bits to transfer - 1. 
Program Segment: 

I. [47:08] % I = (2,7) 

Code Stream: 

VALC (I) ISOL i+7s08 
1007 9A2F08 

Source start bit: h"J 

Destination start bit: 07 

Number of bits: 08 
The result is left on top of the stack. 
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DISO 9B 

The dynamic field isolate is functionally the same as the ISOL operator. 
The initial stack state is as follows: 

Number of bits. 

Source start bit. 

Source item. 

The result is left on top of the stack. 

Program Segment: 

REAL 

Rl (2,2) 

,R2 (2,3) 

,R3 (2,4) 

» 

Rl := 100; 
R2 := k7; 
R3 := 08; 

Rl := R1.[R2:R33; 

Code Stream: 

VALC (Rl) VALC (R2) VALC (R3) DISO NAMC (Rl) STOD 

1002 1003 1004 9B 5002 B8 
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INSR 9C 

The field insert sets a field of the destination from the low order field of the 
source. 

The initial stack state: 

Source item. 

Destination item. 

The destination start bit is the first parameter. 

The number of bits is the second parameter. 

The source start bit is calculated as follows: 

Source start bit = number of bits - 1 

Program Segment: 

REAL 

Rl (2,2) 

,R2 (2,3) 

Rl . [47:08] := R2; 
Code Stream: 

VALC (Rl) VALC (R2) INSR hJiQS NAMC (Rl) STOD 

1002 1003 9C2F08 5002 B8 

Source start bit: 07 

Destination start bit: k~] 

Number of bits: 08 

The result is left on top of the stack. 
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DINS 9D 

The dynamic field insert is functionally the same as the INSR operator. 
The initial stack state is as follows: 

Source item. 

Number of bits. 

Destination start bit. 

Destination item. 

The result is left on top of the stack. 

Program Segment: 

REAL 

(2,2) 
(2; 3) 
(2, ^) 





Rl 
,R2 
,R3 

» 


Rl 
R2 
R3 


:= 100; 
:= hi; 
:= 08; 



R1.[R2:R33 := Rl; 
Code Stream: 

VALC (Rl) VALC (R2) VALC (R3) VALC (Rl) 

1002 1003 1004 1002 
DINS NAMC (Rl) ST0D 
9B 5002 B8 
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FLTR 98 

Field transfer sets a field of the destination from a field of the source. 
The initial stack state. 

Source item. 

Destination item. 
Pairameter values. 

Destination start bit. 

Source start bit. 

Number of bits. 

The result is left on top of the stack. 

Program Segment: 

REAL 

Rl (2,2) 

,R2 (2,3) 

,R3 (2, JO 



*3 n^'^i^ 



Rl := R2 & R3 [Ii7:35:08]; H *^ "* )l ^mV? ^"la^ * * 



rvd° $" 



Code Stream: 



VALC (R2) VALC(R3) FLTR 47:35:08 NAMC (Rl) STOD H 

1003 ioo4 982F2308 5002 B8 
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DFTR 99 

The dynamic field transfer is functionally the same as the FLTR operator, except 
the parameters are located on top of the stack. 

The initial stack state. 

Number of bits. 

Source start bit. 

Destination start bit. 

Source item. 

Destination item. 

The result is left on top of the stack. 

Program Segment: 

REAL 

Rl (2,2) 

,R2 (2,3) 

,R3 (2,4) 

,Rh (2,5) 

,R5 (2,6) 

,R6 (2,7) 
» 

Rl := R2 & R3 [R4:R5:R6]; 

Code Stream: 

VALC (R2) VALC (R3) VALC (Rl*) VALC (R5) VALC (R6) 

1003 1004 1005 1006 1007 

DFTR NAMC (Rl) ST0D 
99 5002 B8 
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STACK STRUCTURE 

Provide procedure entry and exit. 

Sets, saves, and restores processor state components. 

Maintains linkage of activation records, both historical and lexical. 

Display update required upon procedure exit or entry. 

Display update is terminated when looping through decreasing lexical levels by the 
following: 

The new value for DCS is the same as the current. 

The environment number (i) is less than the previous value of LL. 
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MKST AE 

Mark stack builds an inactive MSCW (Mark Stack Control Word) on top of the 
stack. 

Inserted at the head of the historical chain. 

The difference between the current location of the MSCW and F is calculated (S + 
1 - F). 

This difference is inserted in the HISTORYJJNK field of the MSCW. 

MKSIM DF 

The mark-stack bound to name-call is functionally equivalent to the MKST operator. 
The operator immediately following the MKSN must be a NAMC. 
Observance to the MKSN rules is critical. 
E-MODE operator. 
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ENTR AB 

The enter operator completes the procedure entry process. 

Assumes prior execution of MKST. 

Inactive MSCW must be at F. 

F + 1 must be a PCW after IRW chaining. 

Completes the MSCW. 

Inserts MSCW at the head of the appropriate lexical chain. 

The LL field is filled with the LL field of the PCW. 

The MSCW is marked as entered. 
Constructs an RCW. 

Saves the current processor code-stream pointer. 

Saves BOOLEAN accumulators. 

LL set to the current LL prior to procedure entry. 

CS (control state) set to the value in the PCW. 

Initializes processor state for the procedure being entered. 

Code-stream pointer. 

Addressing environment. 
Transfers control to the code-stream pointers set from the PCW. 
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EXIT A3 

The EXIT deletes the topmost activation record from the stack. 

Returns execution to the prior activation record. 

S is set to D [LL] - 1. 

F is set to the location referenced by: 

Current F - MSCW.historylink 
The following registers are set from the fields in the RCW: 

LL 

Boolean processor accumulators: TFFF, OFFF 

CS {control state) 

Processor code-stream pointers (SDI:PWI:PSI) 
Control is transferred to the code-stream pointed to by the RCW. 
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RETN A7 yyfM 

The RETURN operator is exactly the save as EXIT, except: p. .{-f v 

The top-of-stack Item is retained. 

The returned item is placed onto the top of the stack after the top most 
activation record is deleted. 
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The move to stack changes the processor's site of activity by deactivating the 
current stack and activating a destina- tion stack. 

A new memory addressing environment is established. 

A TOSCW is stored at the base of the inactive stack. 

TOSCW of the destination stack used to find the height {S) and the start of the 
historical chain (F). 

The TOSCW is sufficient by itself to activate the stack. 

Single precision top_of__stack item used as the destination stack number. 






[23:12] Destination environment number. nAA x^ s 4sr ^ J ^ A ^ 
[11:12] Destination stack number. 
Restores the stack state. 

BOSR := Stack descriptor.address. 
LOSR :■ Stack descriptor.length + BOSR. 
S := TOSCW.stackJieight + BOSR. 
F := S - TOSCW.SF__displacement. 
Updates the LEXICAL environment state. 
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POINTER OPERATORS 

Deal with sequences of word or character elements in an array. 
Operations include: 

Scanning 

Comparing 

Transferring 

Editing 
Most pointer operations require initial stack arguments that specify: 

Length 

Source 

Destination 
Source can be an operand. 

Source and destination pointers can be updated in most operations. 
Length can be updated to reflect the number of items left to process. 
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UNCONDITIONAL TRANSFER 
TUND E6 

Transfer Characters Unconditional Delete transfers a specified number of 
characters. 

The initial stack state: 

Length 

Source (faj>C ( ^f \^ 

Destination * ' ' c j J^o • 

No results are left on the stack. 

TUNU EE 

Transfer characters unconditional update functionally equivalent to the TUND 
operator, except: 

Updated source and destination- pointers are left on the stack. 

No updated length because operation is unconditional. 

Compiler generates DLET if one of the pointers is not required to be updated. 

TWSD D3 

Transfer words delete performs an unconditional transfer, except: 



Length is in units of words. ,he^ 



Actual transfer is word at a time. \ ^ \f° \ 

\ 
No result left on top of the stack. \ 

TWSU DB 

Transfer words update performs is functionally the same as the TWSD operator 
except: 

The updated source and destination pointers are left on top of the stack. 



Copyright © 1986 Joseph & Cogan Associates, Inc. 

A Burroughs Company 



PAGE 294 

EXAMPLES 

Program Segment: 

REPLACE P BY P2 FOR COUNT; 
Code Stream: 

NAMC (P) LOAD NAMC (P2) LOAD VALC (COUNT) TUND 

Program Segment: 

REPLACE P:P BY P2:P2 FOR COUNT; 
Code Stream: 

NAMC (P) LOAD NAMC (P2) LOAD VALC (COUNT) TUNU 
NAMC (P2) OVRD NAMC (P) OVRD 

Program Segment: 

REPLACE P:P BY P2 FOR COUNT WORDS; 
Code Stream: 

NAMC (P) LOAD NAMC (P2) LOAD VALC (COUNT) TWSU 

DLET NAMC (P) OVRD 
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SCAN OPERATORS 

Chiaracter-relative scan operators sequentially compare each source character to 
the delimiter character. 



The initial stack state. 

Delimiter. ^IdT^'fj . ,r*fl&V*W^cW ■ 

Length. 

Source. 



DELETE SCAN OPERATORS 



The following operators leave no results on the stack: 



r 



,X 



SGTD (95F2) (scan while greater delete) \ \?**p ft } y 



y' N J 



SGED (95F1) (scan while greater or equal delete) 

SEQD (95F4) (scan while equal delete) I J * ^ 

/ K 

SNIED (95F5) (scan while not equal delete) J 

SLIEED (95F3) (scan while less than or equal delete) 

SLSD (95F0) (scan while less than delete) / 

/ 

UPDATE SCAN OPERATORS 

The update scan operators are the same as the delete scan operators except: 
Updated length left on the stack. 
Updated source pointer left on top of the stack. 
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EXAMPLES 

Program Segment: 

SCAN P FOR 10 WHILE = " "; 
Code Stream: 

NAMC (P) LOAD LT8 (10) LT8 (" ") SEQD 

Program Segment: 

SCAN P:P FOR COUNT: 10 UNTIL = " »'; 
Code Stream: 

NAMC (P) LOAD LT8 (10) LT8 (" ") SNEU 
NAMC (COUNT) STOD NAMC (P) OVRD 
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CHARACTER TRANSFER OPERATORS 

Character-relative transfer sequentially compares each source character to the 
delimiter character. 

Each source character that satisfies the relation is transferred to the destination. 

Initial stack state: 

Delimiter 

Length 

Source 

Destination 

CHARACTER TRANSFER DELETE 

The following operators leave no results on the stack: 

TCJTD (E2) (transfer while greater delete) 

TGED (ED (transfer while greater than or equal) 

TEQD (E4) (transfer while equal) 

TMED (E5) (transfer while not equal delete) 

TLED (EB) (transfer while less than or equal) 

TLSD (EO) (transfer while less than delete) 
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CHARACTER TRANSFER UPDATE 

The character transfer operators perform a characters transfer except: 
The updated length is left on top of the stack. 
The update source is left on the stack. 
The updated destination is left on the stack. 
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EXAMPLES 

Program Source: 

REPLACE P BY P2 FOR 10 WHILE NEQ " "; 
Code Stream: 

NAMC (P) LOAD NAMC (P2) LOAD LT8 (10) LT8 (" ") TNED 

Program Source: 

REPLACE P BY P2:P2 FOR 10 UNTIL NEQ " "; 
Code Stream: 

NAMC (P) LOAD NAMC (P2) LOAD LT8 (10) LT8 (" ") TEQU 
DLET NAMC (P2) OVRD DLET 
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CHARACTER COMPARE OPERATORS 

Character-sequence compare apply a relational comparison of each source. 

The TFFF boolean accumulator is set to 1 if the relation is satisfied and if the 
relation fails. 

The initial stack state. 

Length -J^£>(X \ \. 

Sourcel \~e^> ^rz>- 

CHARACTER COMPARE DELETE ^ ^ f 

The following operators terminate when the actual relation is determined. 

No result is left on top of the stack. 

CGTD (F2) (compare characters greater delete) 

CGED (F1) (compare characters greater than or equal delete) 

CEQD (F4) (compare characters equal delete) 

CNED (F5) (compare characters not equal delete) 

CLED (F3) (compare characters less than or equal delete) 

CLSD (F0) (compare characters less than delete) 

CHARACTER COMPARE UPDATE 

The character-sequence compare update operators perform the same as the 
character-sequence compare delete operators except: 

Both source pointers are update and left on the stack. 
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EXAMPLES 

Program Segment: 

B := P GTR P2 FOR 3; 
Code Stream: 

NAMC (P) LOAD NAMC (P2) LOAD LT8 (3) CGTD 

RTFF NAMC (B) STOD 

Program Segment: 

B := P:P GTR P2 FOR 3; 
Code Stream: 

NAMC (P) LOAD NAMC (P2) LOAD LT8 (3) CGTU 

DLET NAMC (P) OVRD RTFF NAMC (B) STOD 
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EXAMPLES OF COMPILER-GENERATED CODE 

Review the following listing analyzing as many of the constructs that time permits. 
CODESTRING/POINTERS 
CODESTRING/STRINGEX 
CODESTRING/SCANPOINTERS 
CODESTRING/TRANSLATE 
CODESTRING/ ACCIDENTAL 
CODESTRING/GOTOSOLVER 
CODESTRING/PASSBYNAME 
CODESTRING/TYPEDPROCEDURE 
CODESTRING/PERFORMS 
CODESTRING/NESTEDPERFORMS 
CODESTRING/WORDTYPES 
CODESTRING/LOWERBOUNDS 
CODESTRING/CASE 
CODESTRING/TADS 
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INTERRUPTS 
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OVERVIEW 

An interrupt is an automatic invocation of an operating system procedure. 
May be invoked by: 

Operators (operator dependent) 

Between operators (external interrupts) 

Any time (alarm interrupts). 

An interrupt causes an MCP procedure (HARDWAREINTERRUPT) whose PCW, or an 
SIRW chain, is located a D[0] + 3. 

The following is the steps to interrupt entry: 

Invoke MKST. 

Place an NIRW (IRW non-E-MODE) to D[0] + 3. 

Place a variable numbers of words (depending on hardware type) on the 
stack. 

Invoke ENTR. 

Interrupts are divided into three classes: 

ODI 

An operator dependent interrupt is invoked directly by the current 
operator to request an MCP service required by the operator or to 
report a programming or operator fault. 

Alarm 

An Alarm interrupt is triggered by hardware fault detection during 
operator execution. 

External 

An External interrupt is invoked between operators to report events 
that are independent of the executing code. 

The optional parameters include: 

P1 parameter (also called interrupt ID parameter). 

P2 parameter. 

Contents vary depending on type on interrupt. 
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OPERATOR DEPENDENT 
MCP SERVICE 

Requests for an MCP service that is an extension of the hardware operators. 

PRESENCE BIT 

Used by operators to gain access to a data array or program code-segment that 
is not present in memory. 

Occurs if the presence bit in the data descriptor = 0. 

The P2 parameter is a copy of the data descriptor that caused the interrupt. 

If the descriptor is a COPY descriptor, the address filed contains the memory 
location of the original data descriptor. 

A presence bit interrupt is not generated if the descriptor is a COPY and the 
original descriptor is present in memory. 

(NOTE: Not true on some earlier hardware.) 
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PAGED ARRAY 

Used by pointer operators to indicate an attempt to access beyond the end of the 
array or page. 

Attempt to access a word that has the memory protect bit = 1. 

If the data array is not segmented an error is generated. 

If the data array is segmented (virtual): 

If at the end of the data segment 

Error condition {Seg Array Err or Paged Array Err) 

Otherwise 

Next array page made resident in memory 

Pointer updated on the stack. 

Return from the interrupt procedure to resume the operator on the next 
page of the array. 
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BINDING REQUEST 

Generated when IRW chaining produces a data descriptor that has an SIZEF = 7. 

Except EVAL. 

Interpreted by the software. 

STACK OVERFLOW 

Attempt to add an item on the stack passed the limit. 

S greater than LOSR. 

MOP attempts to extend the stack and resume processing. 



BLOCK EXIT 

EXIT and RETN operators can generate this interrupt. 

Interrupt generated when attempt to deallocate an activation record that has the 
block_exit bit of the RCW * 1. 

{NOTE: A-Series only) 
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ERROR REPORTING 

Programming, compiler or operator faults. 

INVALID OP 

Generated by execution of NVLD (invalid operator). 
No other operator generates this interrupt. 
Other interrupts that are similar in nature: 

UNDEFINED OPERATOR 

INVALID STACK ARGUMENT 

INVALID ARGUMENT VALUE 

INVALID CODE PARAMETER 

INVALID REFERENCE 

INVALID REFERENCE CHAIN 

INVALID OBJECT 

When an application program encounters an INVALID OP message, it is usually due 
to an application bug such as not having initialized a variable properly. 
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INVALID INDEX 

Attempt to access an array element not within a valid index range for that array. 

MEMORY PROTECT 

Attempt to write into a memory location that has a memory protected word. 



DIVIDE BY ZERO 

Generated by arithmetic divide operators if the numeric interpretation of the 
top-of-stack operand (the divisor) is zero. 



INTEGER OVERFLOW 

Indicates that an operand required to have an integer value cannot be represented 
as an integer. 
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ALARM 

Alarm interrupts are triggered by hardware fault detection. 

INVALID ADDRESS 
UNCORRECTABLE MEMORY ERROR 
LOOP TIMER 
HARDWARE ERROR 
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EXTERNAL 

Reports events that are independent of the executing code stream. 

If in Control State, the EXTERNAL interrupt is normally queued until return to 
Normal State. 

IO FINISH 

Caused by the IO subsystem to report a physical IO completion. 
Not necessarily generated for each physical IO complete. 

INTERVAL TIMER 

Periodically set by MCP processor control procedures to enforce task priority. 
Prevents lower priority CPU-bound tasks from maintaining control of the processor. 
System relies on interrupt driven mechanism. 
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PROGRAMMATIC FAULT HANDLING 

Programs can handle various faults and interrupts if they so desire. 

This is done through the use of the ON <fault list> statement in ALGOL. 

A program has the ability to continue running after detecting the fault, or 
terminating. 

HISTORY information can be obtained to be used in the fault processing, if desired. 

Example: 

BEGIN 

REAL ARRAY A [0:9]; 

REAL NDX; 

ON INVAL IDINDEX, 

BEGIN 

DISPLAY ("INVALID INDEX WHEN NDX WAS: " CAT 
STRING (NDX,*)); 

END; 
WHILE TRUE DO 

BEGIN 

A [NDX] := NDX; 

NDX := *.+ 1; 

END; 
END; 

The above program would issue the message: 

INVALID INDEX WHEN NDX WAS: 10 
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PROGRAMMATIC INTERRUPTS 

It is possible to write software interrupts that can be entered dynamically. 

In other words, at program compilation time, there may or may not be an explicit 
call on the INTERRUPT. 

INTERRUPTS look just like PROCEDURES, and can be called just like procedures, or 
they can be ATTACHed to an EVENT. 

If ATTACHed to an EVENT, whenever the EVENT is CAUSEd, the INTERRUPT is 
dynamically entered. 

Example: 

BEGIN 

FILE F; 

REAL RECORD_CNTR; 

INTERRUPT DISPLAY_RECORD_CNTR; 
BEGIN 
DISPLAY ("RECORDS READ = " CAT 

STRING (RECORD_CNTR,*)) ; 
END OF INTERRUPT D I SPLAY_RECORD_CNTR; 

ATTACH DISPLAY_RECORD_CNTR TO MYSELF .EXCEPT I ONEVENT; 
WHILE NOT READ (F) DO RECORD_CNTR := * + 1; 
END OF PROGRAM. 

While this program is running, doing a *mix nbr>HI will CAUSE the event 
MYSELF.EXCEPTIONEVENT. The MCP will automatically call the INTERRUPT 
DISPLAY_RECORD_CNTR which will in turn DISPLAY the number of records read 
from file F. 

When DISPLAY_RECORD__CNTR exits, the program will resume processing where it 
was. 

Unless the INTERRUPT informs the program that it has been called, the program 
doesn't even know that an interrupt occurred. 
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PROBLEM ANALYSIS TECHNIQUES 

Recommended steps in using program dump to help resolve program failure. 
Observe MCP release.cycle.patch levels. 
Identify system by using system serial number. 
Notice local box (relate to SUBSYSTEM). 
Review RCW history. 
Record MCP history locations. 

May be useful to determine exactly what MCP was doing. 
Find first USER RCW. 
Notice if this activation record history belongs to another environment. 

Could be LIBRARY call. 
Is this lexical region MCP procedure HARDWARE INTERRUPT. 
Identify syllable that failed. 
Record P2 parameter. 

May be useful later. 

Reverse from that syllable until location of a statement end syllable. 

STOD 

TUND 

EXIT 
Proceed from the next syllable forward until the operator that failed. 

Build temporary stack of results of re-executing the operators. 
Continue passed operator that failed until statement end. 
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Observe stack cells between next two MSCWs. 
Top stack items could be residual cells from operator that failed. 
PAGED ARRAY error. 

Updated length. 

Updated source pointer. 

Updated destination pointer. 

INVALID INDEX. 

Actual index. 

P2 is descriptor we are trying to index. 
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PROGRAM FAILURE REVIEW 

Review program listings/dumps as outlined by the instructor. 
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FILE INFORMATION BLOCKS 
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FIB STRUCTURE 

Label equation block. 
Disk file headers. 

Layout in appendix. 
Buffers. 
IOCB. 

Logical record area. 
Transaction count. 
Physical 10 count. 

READS 

WRITES 
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SYSTEM SOFTWARE COMPILATION 



Copyright© 1986 Joseph & Cogan Associates, Inc. 

A Burroughs Company 



PAGE 320 

OVERVIEW 

Periodic requirement to compile environmental software. 

Install patches. 

Install flashes. 

Generate compiled listings. 

Burroughs provides most of the symbolics with software release tapes. 

Can react quickly to install recommended software modifications intended to 
correct environmental software problems. 

System provided WORK FLOW JOB which can compile most all or selected 
software components. 

Refer to appendix for source listing of WFL job. 

Documented in A-SERIES SYSTEM SUPPORT. 
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PATCHESFOR 

PATCHESFOR/ <sof tware item >. 

For each <software item > present, the WFL job will execute a software 
compilation. 
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OPTIONS 

Module selection options. 
These options are BOOLEAN variables. 
Valid values: 

TRUE 

FALSE 

COMPILE ALL:=TRUE; 



COMPILE ALL 

Option allows all of the system software to be compiled regardless if a 
PATCHESFOR files is present. 

FALSE means selective compilation. 



SKIP IF NO SYMBOL 

Software modules are skipped if their corresponding symbol files are not present. 
Can be combined with COMPILE__ALL option. 
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REQUIRED FILES 

WI=L/COMPILE/SOFTWARE 

SYSTEM/DCALGOL 

PATCHESFOR/ <each software item to compile^ 

Symbolic file for compilation 

DATABASE/PROPERTIES 

GENERATED FILES 

Code file (for each successful compilation) 
COMPLETED/ <software item> 
Symbolic files (only if needed). 
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PROCESS 

Generate PATCHESFOR/<software item> patch files. 

SYSTEM/PATCH format. 
Load symbolic. 
START WFL job. 
Respond to ODT input requests: 

Only required if job not run under privileged usercode. 
Insure successful compile: 

COMPLETED/ <software item> resident. 
Refer to listing for errors (if any). 
Correct and restart process. 
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A SERIES PROCESSOR OPERATORS 
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BURROUGHS A SERIES PROCESSOR OPERATORS 

Here is a detailed description of the columns used in each of the tables that 
appear on the following pages in this section: 



Mne This is the Mnemonic code given the operator. 

Mode The "Mode" of the operator: 

<blank> is Primary Mode 

e is Edit Mode; 

t is Table Edit Mode (not a true mode); 

v is Variant Mode. 

Op The Hexadecimal code for the operator. 

Syls Number of code syllables for the total instruction. 

Function A description of the function of the operator. 

References Page numbers in the Burroughs A-Series System 
Architecture Reference Manual, Volume 2 (Form 
501495**. April, 1985) where the operators are 
documented. 
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OPERATORS LISTED BY MNEMONIC NAME 



Mne Mode Op Syls Function 



References 



ADD 80 1 Add 3"007 B-07 

AMAX v 958A 2 Arithmetic Maximum 3~009 B-07 

AM IN v 9588 2 Arithmetic Minimum 3~009 B-07 

ASRT v 9580 3 Assert 3-101 B-08 

BCD v 9577 3 Binary Convert to Decimal 3~Ol6 B-08 

BRFL A0 3 Branch False 3~0^9 B-08 

BRTR Al 3 Branch True 3-0^9 B-09 

BRST 9E 2 Bit Reset 3~022 B-09 

BRUN A2 3 Branch Unconditional 3~0^9 B-09 

BSET 96 2 Bit Set 3~022 B-09 

CBON v 95BB 2 Count Binary Ones 3~021 B-09 

CEQD ?k 1 Compare Chars Equal Delete 3-O8I B-10 

CEQU FC 1 Compare Chars Equal Update 3"08l B-10 

CGED Fl 1 Compare Chars Greater or Equal Delete 3~08l B-10 

CGEU F9 1 Compare Chars Greater or Equal Update 3-O8I B-ll 

CGTD F2 1 Compare Chars Greater Delete 3~08l B-ll 

CGTU FA 1 Compare Chars Greater Update 3"08l B-ll 

CHSN 8E 1 Change Sign 3-025 B-ll 

CLED F3 1 Compare Chars Less or Equal Delete 3-081 B-ll 

CLEU FB 1 Compare Chars Less or Equal Update 3-O8I B-ll 

CLSD FO 1 Compare Chars Less Delete 3~08l B-12 

CLSU F8 1 Compare Chars Less Update 3~08l B-12 

CNED F5 1 Compare Chars Not Equal Delete 3"08l B-12 

CNEU FD 1 Compare Chars Not Equal Update 3"08l B-12 

CUIO v 954C 2 Communicate with Universal I/O 3~099 B-12 

DBCD v 957F 2 Dynamic Binary Convert to Decimal 3 - 017 B- 1 3 

DBFL A8 1 Dynamic Branch False 3-051 B-13 

DBRS 9F 1 Dynamic Bit Reset 3"022 B-13 

DBST 97 1 Dynamic Bit Set 3~022 B- 1 i+ 

DBTR A9 1 Dynamic Branch True 3~051 B-14 

DBUN AA 1 Dynamic Branch Unconditional 3"050 B-H 

DEXI v 95^+7 2 Disable External Interrupts 3-O68 B-T+ 

DFTR 99 1 Dynamic Field Transfer 3-024 B-15 

DINS 9D 1 Dynamic Field Insert 3~02h B-15 

DISO 9B 1 Dynamic Field Isolate 3~023 B-16 

DIVD 83 1 Divide 3-OO8 B-l6 

DLAY v 95F6 3 Delay 3"100 B-l6 

DLET B5 1 Delete Top-of -stack 3~064 B-l 7 

DRNT v 9583 2 Dynamic Range Test 3"010 B-17 

DSLF CI 1 Dynamic Scale Left 3"013 B-17 

DSRF C7 1 Dynamic Scale Right Final 3~015 B-l8 

DSRR C9 1 Dynamic Scale Right Rounded 3"015 B-18 

DSRS C5 1 Dynamic Scale Right Save 3~014 B-l8 

DSRT C3 1 Dynamic Scale Right Truncate 3~014 B-19 

DUPL B7 1 Dupl icate Top-of -stack 3-O65 B-19 

EEXI v 9546 2 Enable External Interrupts 3-O68 B-19 

ENDE e DE 1 End Edit 3"099 B-19 

ENDF e D5 3 End Float 3-097 B-20 
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Mne Mode Op Syls Function 



References 



ENTR AB 1 Enter 3"054 B-21 

EQUIL 8C 1 Equal To 3~009 B-22 

EVAIL AC 1 Evaluate 3-038 B-22 

EXCH B6 1 Exchange Top-of-stack 3-064 B-22 

EXIT A3 1 Exit 3-059 B-23 

EXPU DD 1 Execute Sngl Edit Op, Sngl Ptr Update 3"094 B-24 

EXSD D2 1 Execute Single Edit Operator Delete 3"094 B-24 

EXSU DA 1 Execute Single Edit Operator Update 3"094 B-25 

FLTR 98 4 Field Transfer 3"024 B-25 

GREQ 89 1 Greater Than or Equal To 3-009 B-25 

GRTR 8A 1 Greater Than 3"009 B-25 

HALT v 95DF 2 Conditional Processor Halt 3-101 B-26 

HALT e DF 1 Conditional Processor Halt 3~ 101 B-26 

ICLD v 9575 2 Input Convert Left-Signed Delete 3-O89 B-26 

I CRD v 9576 2 Input Convert Right-Signed Delete 3-O89 B-26 

I CUD A4 1 Input Convert Unsigned Delete 3-O89 B-26 

ICVD CA 1 Input Convert Delete 3-O89 B-27 

ICVU CB 1 Input Convert Update 3-O89 B-27 

IDIV 84 1 Integer Divide 3-OO8 B-27 

IDLE v 9544 2 Idle Until Interrupt 3-099 B-27 

INKS CF 1 Insert Mark Stack 3"054 B-28 

INDX A6 1 Index 3~032 B-29 

I NOP e D8 1 Insert Overpunch 3"096 B-30 

I NSC e DD 3 Insert Conditional 3"096 B-30 

INSC 1: DD 4 Insert Conditional 3"096 B-30 

INSG e D9 3 Insert Display Sign 3"096 B-31 

INSR 9C 3 Field Insert 3"023 B-31 

INSU e DC 2 Insert Unconditional 3"096 B-31 

INSU 1: DC 3 Insert Unconditional 3-096 B-31 

INXA E7 3 Index Via Address-Couple 3"033 B-32 

ISOL 9A 3 Field Isolate 3"023 B-32 

JOIN v 9542 2 Set Two Singles to Double 3"020 B-33 

LAND 90 1 Logical And 3"017 B-33 

LEQV 93 1 Logical Equivalence 3-OI8 B-33 

LESS 88 1 Less Than 3~009 B-33 

LKID v 95B3 2 Read Interlock Status 3-048 B-34 

LLLU v 95BD 2 Linked List Lookup 3"071 B-34 

LNMC v 958C 4 Long Name Call 3~031 B~35 

LNOT 92 1 Logical Not 3"017 B-35 

LOAD BD 1 Load 3~039 B-35 

LODT BC 1 Load Transparent 3"039 B-36 

LODT v 95BC 2 Load Transparent 3"039 B-36 

L0G2 v 958B 2 Leading One Test 3"021 B-36 

LOK v 95BO 2 Lock Interlock 3~047 B-36 

LOKC v 95B1 2 Conditional Lock Interlock 3"048 B-37 

LOR 91 1 Logical Or 3~Ol8 B-37 

LSEQ 8B 1 Less Than or Equal To 3~009 B-37 

LT8 B2 2 Insert 8-Bit Literal 3~Ol8 B-37 

LT16 B3 3 Insert 16-Bit Literal 3-OI8 B-37 

LT48 BE 7-12 Insert 48-Bit Literal 3"019 B-38 
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Mne Mode Op Syls Function 



References 



LVLC 

MCHR 

MCHR 

MFLT 

MFLT 

MINS 

MINS 

MKSN 

MKST 

MPCW 

MULT 

MULX 

MVNU 

MVNU 

MVST 

NAMC 

NEQL 

NOOP 

NOOP 

NORM 

NTGD 

NTGR 

NT I A 

NTTD 

NVL.D 

NVLD 

NXLN 

NXLV 

NXVA 

OCRX 

ONE 

OVRD 

OVRN 

PA CD 

PACU 

PALIS 

PKLD 

PKRD 

PKUD 

PUSH 

RDIV 

RDLK 

REMC 

RETN 

RIPS 

RNGT 

ROFF 

RPRR 

RSDN 

RSNR 



v 958D 
e D7 
t D7 
e Dl 
t Dl 
e DO 
t DO 

DF 

AE 

BF 

82 

8F 
e D6 
t D6 
v 95AF 

40-7F 

8D 

FE 
v 95FE 
v 958E 
v 9587 

87 

86 
v 9586 

FF 
v 95FF 

A5 

AD 

EF 
v 9585 

Bl 

BA 

BB 

Dl 

D9 
v 958^ 
v 9573 
v 957^ 
v 9572 

B4 

85 
v 95BA 
v 9592 

A7 
v 9598 
v 9582 

D7 
v 95B8 

v 95B7 
v 9581 



it Long Value Call 3-036 B-38 

1 Move Chars 3-097 B-38 

2 Move Chars 3-097 B-38 
5 Move with Float 3-098 B-38 
5 Move with Float 3-098 B-38 

2 Move with Insert 3-O98 B-39 

3 Move with Insert 3-098 B-39 
1 Mark-Stack Bound to Name-Call 3-053 B-39 
1 Mark Stack 3-052 B-39 
7-12 Make PCW 3-034 B-i*0 
1 Multiply 3-007 B-40 
1 Extended Multiply 3-OO8 B-hO 

1 Move Numeric Unconditional 3 - 097 B-itl 

2 Move Numeric Unconditional 3~097 B-i+1 
2 Move to Stack 3-062 B-h2 
2 Name Cal 1 3-03 1 B-*»3 
1 Not Equal To 3-009 B-43 

1 No Operation 3-100 B-^3 

2 No Operation 3-100 B-43 
2 Normal ize 3-OO8 B-^3 
2 Integer ize Double-Precision Rounded 3-012 B-kk 
1 Integer ize Rounded 3~011 B-hh 

1 Integerize Truncated 3-011 B-hk 

2 Integerize Double-Precision Truncated 3-01 1 B-kh 

1 Invalid Operator 3-101 B-i*5 

2 Invalid Operator 3- 101 B-i+5 
1 Index and Load Name 3-037 B-i+5 

1 Index and Load Value 3-036 B-46 

3 Index and Load Value Via Addr-Couple 3~037 B-J+7 

2 Occurs Index 3-025 B-i*7 
1 Insert Literal One 3-OI8 B-kB 
1 Overwrite Delete 3-043 B-48 
1 Overwrite Non-Delete 3-0^3 B-kB 
1 Pack Delete 3-O86 B-48 

1 Pack Update 3-086 B-i+9 

2 Pause Until Interrupt 3~099 B-it9 
2 Pack Left-Signed 3-O86 B-i*9 
2 Pack Right-Signed 3-O86 B-it9 
2 Pack Unsigned 3-O86 B-50 
1 Push Working Stack Onto Activation Rec 3-100 B-50 

1 Remainder Divide 3-OO8 B-50 

2 Read Lock 3-04** B-51 
2 Read External Memory Control 3~099 B-51 

1 Return 3-061 B-52 

2 Read Internal Processor State 3-O67 B-52 
it Range Test 3-010 B-53 

1 Read and Reset Overflow Flip-Flop 3-070 B-53 

2 Read Processor Register 3-067 B-53 
2 Rotate Stack Down 3-O65 B-54 
2 Read Stack Number 3-O66 B~5h 
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RSTF e D4 1 Reset Float F lip-Flop 

RSUP v 95B6 2 Rotate Stack Up 

RTAG v 95B5 2 Read Tag 

RTFF DE 1 Read True-False Flip-Flop 

RTOD v 95A7 2 Read Time of Day Clock 

RUN I v 9541 2 Indicate Running 

SAME 94 1 Logical Equality 

SCLF CO 2 Scale Left 

SCRF C6 2 Scale Right Final 

SCRR C8 2 Scale Right Rounded 

SCRS C4 2 Scale Right Save 

SCRT C2 2 Scale Right Truncate 

SEQD v 95F4 2 Scan While Equal Delete 

SEQU v 95FC 2 Scan While Equal Update 

SFDC e DA 1 Skip Forward Destination Chars 

SFDC t DA 2 Skip Forward Destination Chars 

SFSC e D2 1 Skip Forward Source Chars 

SFSC t D2 2 Skip Forward Source Chars 

SGED v 95F1 2 Scan While Greater or Equal Delete 

SGEU v 95F9 2 Scan While Greater or Equal Update 

SGTD v 95F2 2 Scan While Greater Delete 

SGTU v 95FA 2 Scan While Greater Update 

SHOW v 95DE 2 Primitive Display 

SI NT v 9545 1 Set Interval Timer 

SISO D5 1 String Isolate 

SLED v 95F3 2 Scan While Less or Equal Delete 

SLEU v 95FB 2 Scan While Less or Equal Update 

SLSD v 95FO 2 Scan While Less Delete 

SLSU v 95F8 2 Scan While Less Update 

SNED v 95F5 2 Scan While Not Equal Delete 

SNEU v 95FD 2 Scan While Not Equal Update 

SNGL CD 1 Set to Single-Precision Rounded 

SNGT CC 1 Set to Single-Precision Truncated 

SPLT v 9543 2 Set Double to Two Singles 

SPRR v 95B9 2 Set Processor Register 

SRCH v 95BE 2 Masked Search for Equal 

SRDC e DB 1 Skip Reverse Destination Chars 

SRDC t DB 2 Skip Reverse Destination Chars 

SRSC e D3 1 Skip Reverse Source Chars 

SRSC t D3 2 Skip Reverse Source Chars 

STAD F6 3 Store Delete Via Address-Couple 

STAG v 95B4 2 Set Tag 

STAN F7 3 Store Non-Delete Via Address-Couple 

STFF AF 1 Stuff 

STOD B8 1 Store Delete 

STON B9 1 Store Non-Delete 

STOP v 95BF 2 Unconditional Processor Halt 

SUBT 81 1 Subtract 

SWFD v 95D4 2 Scan While False Delete 

SWFU v 95DC 2 Scan While False Update 
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SWTD 

SWTU 

SXSN 

TEED 

TEEU 

TEQD 

TEQU 

TGED 

TGEU 

TGTD 

TGTU 

TLED 

TLEU 

TLSD 

TLSU 

TNED 

TNEU 

TRNS 

TUND 

TUNU 

TWFD 

TWFU 

TWOD 

TWOU 

TWSD 

TWSU 

TWTD 

TWTU 

UNLK 

UPLD 

UPLU 

UPRD 

UPRU 

UPUD 

UPUU 

USND 

USNU 

VALC 

VARI 

WAT I 

WEMC 

WHO I 

WIPS 

WTOD 

XTND 

ZERO 

ZIC 



v 95D5 
v 95DD 

D6 

DO 

D8 

Ik 

EC 

El 

E9 
E2 
EA 

E3 
EB 
EO 
E8 

E5 
ED 

v 95D7 

E6 

EE 
v 95D2 
v 95 DA 

Dlt 

DC 

D3 
DB 

v 95D3 

v 95 DB 

v 95 B 2 

v 9570 

v 9578 

v 9571 

v 9579 

v 95D1 

v 95D9 

v 95 DO 

v 95D8 



95 
v 95 A 4 

v 9593 
v 954 E 
v 9599 
v 9549 

CE 

BO 
v 95^0 



00-3F 2 



Scan While True Delete 
Scan While True Update 
Set External Sign Flip-Flop 
Table Enter Edit Delete 
Table Enter Edit Update 



le Equal Delete 

le Equal Update 

le Greater or Equal Delete 

le Greater or Equal Update 

le Greater Delete 

le Greater Update 

le Less or Equal Delete 

le Less or Equal Update 

le Less Delete 

le Less Update 

le Not Equal Delete 

le Not Equal Update 



Transfer Wh 

Transfer Wh 

Transfer Wh 

Transfer Wh 

Transfer Wh 

Transfer Wh 

Transfer Wh 

Transfer Wh 

Transfer Wh 

Transfer Wh 

Transfer Wh 

Transfer Wh 

Translate 

Transfer Chars Unconditional Delete 

Transfer Chars Unconditional Update 

Transfer While False Delete 

Transfer While False Update 

Transfer Words Overwrite Delete 

Transfer Words Overwrite Update 

Transfer Words Delete 

Transfer Words Update 

Transfer While True Delete 

Transfer While True Update 

Unlock Interlock 

Unpack Left-Signed Delete 

Unpack Left-Signed Update 

Unpack Right-Signed Delete 

Unpack Right-Signed Update 

Unpack Unsigned Delete 

Unpack Unsigned Update 

Unpack Signed Delete 

Unpack Signed Update 

Value Call 

Introduce Variant Operator 

Read Machine Identification 

Write External Memory Control 

Read Processor Identification 

Write Internal Processor State 

Write Time-of-Day Clock 

Set to Double-Precision 

Insert Literal Zero 

Zero I nterrupt_Count 
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OPERATORS LISTED BY MODE AND OPERATOR 
PRIMARY MODE OPERATORS 



Mne Mode Op Syls 



VALC 

NAMC 

ADD 

SUBT 

MULT 

DIVD 

IDIV 

RDIV 

NT I A 

NTGR 

LESS 

GREQ 

GRTR 

LSEQ 

EQUL 

NEQL 

CHSN 

MULX 

LAND 

LOR 

LNOT 

LEQV 

SAME 

VARI 

BSET 

DBST 

FLTR 

DFTR 

I SOL 

DISO 

INSR 

DINS 

BRST 

DBRS 

BRFL 

BRTR 

BRUN 

EXIT 

I CUD 

NXLN 

INDX 

RETN 

DBFL 

DBTR 

DBUN 



00-3F 

40-7F 

80 

81 

82 

83 
84 

85 
86 

87 
88 

89 
8A 
8B 
8C 
8D 
8E 
8F 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
9A 
9B 
9C 
9D 
9E 
9F 
AO 
Al 
A2 

A3 
A4 

A5 
A6 

A7 
A8 

A9 
AA 



Function 


References 




Value Cal 1 


3-035 


B-81 




Name Cal 1 


3-031 


B-43 




Add 


3-007 


B-07 




Subtract 


3-007 


B-68 




Multiply 


3-007 


B-40 




Divide 


3-008 


B-16 




Integer Divide 


3-008 


B-27 




Remainder Divide 


3-008 


B-50 




Integer ize Truncated 


3-011 


B-44 




Integer ize Rounded 


3-011 


B-44 




Less Than 


3-009 


B-33 




Greater Than or Equal To 


3-009 


B-25 




Greater Than 


3-009 


B-25 




Less Than or Equal To 


3-009 


B-37 




Equal To 


3-009 


B-22 




Not Equal To 


3-009 


B-43 




Change Sign 


3-025 


B-ll 




Extended Multiply 


3-008 


B-40 




Logical And 


3-017 


B-33 




Logical Or 


3-018 


B-37 " 




Logical Not 


3-017 


B-35 




Logical Equivalence 


3-018 


B-33 




Logical Equal i ty 


3-018 


B-56 




Introduce Variant Operator 


3-101 


B-81 




Bit Set 


3-022 


B-09 




Dynamic Bit Set 


3-022 


B-14 




Field Transfer 


3-024 


B-25 




Dynamic Field Transfer 


3-024 


B-15 




Field Isolate 


3-023 


B-32 




Dynamic Field Isolate 


3-023 


B-16 




Field Insert 


3-023 


B-31 




Dynamic Field Insert 


3-024 


B-15 




Bit Reset 


3-022 


B-09 




Dynamic Bit Reset 


3-022 


B-13 




Branch False 


3-049 


B-08 




Branch True 


3-049 


B-09 




Branch Unconditional 


3-049 


B-09 




Exit 


3-059 


B-23 




Input Convert Unsigned Delete 


3-089 


B-26 




Index and Load Name 


3-037 


B-45 




1 ndex 


3-032 


B-29 




Return 


3-061 


B-52 




Dynamic Branch False 


3-051 


B-13 




Dynamic Branch True 


3-051 


B-14 




Dynamic Branch Unconditional 


3-050 


B-14 
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ENTR AB 1 Enter 3"054 B-21 

EVAL AC 1 Evaluate 3~038 B-22 

NXLV AD 1 Index and Load Value 3"036 B-46 

MKST AE 1 Mark Stack 3~052 B-39 

STFF AF 1 Stuff 3-032 B-66 

ZERO BO 1 Insert Literal Zero 3-OI8 B-83 

ONE Bl 1 Insert Literal One 3"Ol8 B-48 

LT8 B2 2 Insert 8-Bit Literal 3~Ol8 B-37 

LT16 B3 3 Insert 16-Bit Literal 3~Ol8 B-37 

PUSH B4 1 Push Working Stack Onto Activation Rec 3-100 B-50 

DLET B5 1 Delete Top-of-stack 3-061* B- 1 7 

EXCH B6 1 Exchange Top-of-stack 3-064 B-22 

DUPL B7 1 Dupl icate Top-of-stack 3"065 B- 19 

STOD B8 1 Store Delete 3~042 B-67 

STON B9 1 Store Non-Delete 3~042 B-68 

OVRD BA 1 Overwrite Delete 3"043 B-48 

OVRN BB 1 Overwrite Non-Delete 3~043 B-48 

LODT BC 1 Load Transparent 3"039 B-36 

LOAD BD 1 Load 3"039 B-35 

LT48 BE 7-12 Insert 1+8-Bit Literal 3"019 B-38 

MPCW BF 7-12 Make PCW 3"034 B-lfO 

SCLF CO 2 Scale Left 3"013 B-56 

DSLF CI 1 Dynamic Scale Left 3"013 B-17 

SCRT C2 2 Scale Right Truncate 3-014 B-57 

DSRT C3 1 Dynamic Scale Right Truncate 3-014 B-19 

SCRS C4 2 Scale Right Save 3-014 B-57 

DSRS C5 1 Dynamic Scale Right Save 3-014 B-18 

SCRF C6 2 Scale Right Final 3"015 B-56 

DSRF C7 1 Dynamic Scale Right Final 3"015 B-l8 

SCRR C8 2 Scale Right Rounded 3"015 B-57 

DSRR C9 1 Dynamic Scale Right Rounded 3"015 B-l8 

ICVD CA 1 Input Convert Delete 3-O89 B-27 

ICVU CB 1 Input Convert Update 3-O89 B-27 

SNGT CC 1 Set to Single-Precision Truncated 3~011 B-63 

SNGL CD 1 Set to Single-Precision Rounded 3-011 B-62 

XTND CE 1 Set to Double-Precision 3"020 B-83 

INKS CF 1 Insert Mark Stack 3-054 B-28 

TEED DO 1 Table Enter Edit Delete 3~093 B-70 

PACD Dl 1 Pack Delete 3"086 B-48 

EXSD D2 1 Execute Single Edit Operator Delete 3"094 B-24 

TWSD D3 1 Transfer Words Delete 3~090 B-78 

TWOD D4 1 Transfer Words Overwrite Delete 3"090 B-77 

SISO D5 1 String Isolate 3-O83 B-61 

SXSN D6 1 Set External Sign Flip-Flop 3-O68 B~70 

ROFF D7 1 Read and Reset Overflow Flip-Flop 3"070 B-53 

TEEU D8 1 Table Enter Edit Update 3"093 B-71 

PACU D9 1 Pack Update 3-O86 B-49 

EXSU DA 1 Execute Single Edit Operator Update 3~094 B-25 

TWSU DB 1 Transfer Words Update 3"090 B-78 

TWOU DC 1 Transfer Words Overwrite Update 3"090 B-77 
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EXPU 
RTFF 
MKSN 
TLSD 
TGED 
TGTD 
TLED 
TEQD 
TNED 
TUND 
INXA 
TLSU 
TGEU 
TGTU 
TLEU 
TEQU 
TNEU 
TUNU 
NXVA 
CLSD 
CGED 
CGTD 
CLED 
CEQD 
CNED 
STAD 
STAN 
CLSU 
CGEU 
CGTU 
CLEU 
CEQU 
CNEU 
NOOP 
NVLD 



DD 
DE 
DF 
EO 
El 
E2 

E3 
Eh 

E5 
E6 

E7 
E8 

E9 
EA 
EB 
EC 
ED 
EE 
EF 
FO 
Fl 
F2 

F3 
tk 

F5 
F6 

F7 
F8 

F9 
FA 
FB 
FC 
FD 
FE 
FF 



Execute Sngl Edit Op, Sngl Ptr Update 

Read True-False Flip-Flop 

Mark-Stack Bound to Name-Call 

Transfer While Less Delete 

Transfer While Greater or Equal Delete 

Transfer While Greater Delete 

Transfer While Less or Equal Delete 

Transfer While Equal Delete 

Transfer While Not Equal Delete 

Transfer Chars Unconditional Delete 

Index Via Address-Couple 

Transfer While Less Update 

Transfer While Greater or Equal Update 

Transfer While Greater Update 

Transfer While Less or Equal Update 

Transfer While Equal Update 

Transfer While Not Equal Update 

Transfer Chars Unconditional Update 

Index and Load Value Via Addr-Couple 

Compare Chars Less Delete 

Compare Chars Greater or Equal Delete 

Compare Chars Greater Delete 

Compare Chars Less or Equal Delete 

Compare Chars Equal Delete 

Compare Chars Not Equal Delete 

Store Delete Via Address-Couple 

Store Non-Delete Via Address-Couple 

Compare Chars Less Update 

Compare Chars Greater or Equal Update 

Compare Chars Greater Update 

Compare Chars Less or Equal Update 

Compare Chars Equal Update 

Compare Chars Not Equal Update 

No Operation 

I nval id Operator 
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3-081 
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3-081 


B-10 


3-081 


B-12 


3-042 
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Mne Mode Op Syls Function 



References 



MINS 
MFLT 
SFSC 
SRSC 
RSTF 
ENDF 
MVNU 
MCHR 
I NOP 
INSG 
SFDC 
SRDC 
INSU 
INSC 
ENDE 
HALT 



DO 2 Move with Insert 

Dl 5 Move wi th Float 

D2 1 Skip Forward Source Chars 

D3 1 Skip Reverse Source Chars 

Dh 1 Reset Float Flip-Flop 

D5 3 End Float 

D6 1 Move Numeric Unconditional 

D7 1 Move Chars 

D8 1 Insert Overpunch 

D9 3 Insert Display Sign 

DA 1 Skip Forward Destination Chars 

DB 1 Skip Reverse Destination Chars 

DC 2 Insert Unconditional 

DD 3 Insert Conditional 

DE 1 End Edit 

DF 1 Conditional Processor Halt 



3-098 
3-098 
3-095 
3-095 
3-099 
3-097 
3-097 
3-097 
3-096 
3-096 
3-095 
3-095 
3-096 
3-096 

3-099 
3-101 



B-39 
B-38 

B-59 
B-65 
B-51+ 
B-20 
B-ifl 
B-38 
B-30 
B-31 
B-58 
B-64 
B-31 
B-30 
B-19 
B-26 
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References 



MINS t DO 3 Move with Insert 

MFLT t Dl 5 Move with Float 

SFSC t D2 2 Skip Forward Source Chars 

SRSC t D3 2 Skip Reverse Source Chars 

MVNU t D6 2 Move Numeric Unconditional 

MCHR t D7 2 Move Chars 

SFDC t DA 2 Skip Forward Destination Chars 

SRDC t DB 2 Skip Reverse Destination Chars 

INSU t DC 3 Insert Unconditional 

I NSC t DD k Insert Conditional 



3-098 B-39 
3-098 B-38 
3-095 B-59 
3-095 B-65 
3-097 B-M 
3-097 B-38 
3-095 B-58 
3-095 8-64 
3-096 B-31 
3-096 B-30 
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Mne Mode Op Syls Function 



References 



ZIC 


V 


95^0 


2 


RUNI 


V 


95^1 


2 


JOIN 


V 


95^2 


2 


SPLT 


V 


95^3 


2 


IDLE 


V 


95^ 


2 


SI NT 


V 


95^5 


1 


EEXI 


V 


95^6 


2 


DEXI 


V 


95^7 


2 


WTOD 


V 


95^9 


2 


CUIO 


V 


95^C 


2 


WHOI 


V 


95^E 


2 


UPLD 


V 


9570 


2 


UPRD. 


V 


9571 


2 


PKUD 


V 


9572 


2 


PKLD 


V 


9573 


2 


PKRD 


V 


957^ 


2 


ICLD 


V 


9575 


2 


ICRD 


V 


9576 


2 


BCD 


V 


9577 


3 


UPLU 


V 


9578 


2 


UPRU 


V 


9579 


2 


DBCD 


V 


957F 


2 


ASRT 


V 


9580 


3 


RSNtR 


V 


9581 


2 


RNGT 


V 


9582 


k 


DRNT 


V 


9583 


2 


PAUS 


V 


9584 


2 


OCRX 


V 


9585 


2 


NTTD 


V 


9586 


2 


NTGD 


V 


9587 


2 


AM IN 


V 


9588 


2 


AMAX 


V 


958A 


2 


LOG 2 


V 


958B 


2 


LNMC 


V 


958C 


h 


LVLC 


V 


958D 


if 


NORM 


V 


958E 


2 


REMC 


V 


9592 


2 


WEMC 


V 


9593 


2 


RIPS 


V 


9598 


2 


WIPS 


V 


9599 


2 


WATI 


V 


95A4 


2 


RTOD 


V 


95A7 


2 


MVST 


V 


95AF 


2 


LOK 


V 


95BO 


2 


LOKC 


V 


95B1 


2 


UNLK 


V 


95B2 


2 


LKID 


V 


95B3 


2 



Zero lnterrupt_Count 3~070 B-83 

Indicate Running 3"070 B-55 

Set Two Singles to Double 3~020 B-33 

Set Double to Two Singles 3-020 B-63 

Idle Until Interrupt 3"099 B-27 

Set Interval Timer 3-O68 B-60 

Enable External Interrupts 3-O68 B- 19 

Disable External Interrupts 3-O68 B-14 

Write Time-of-Day Clock 3-O68 B-83 

Communicate with Universal I/O 3"099 B- 1 2 

Read Processor Identification 3~066 B-82 

Unpack Left-Signed Delete 3-088 B-79 

Unpack Right-Signed Delete 3-O88 B-79 

Pack Unsigned 3-O86 B-50 

Pack Left-Signed 3-O86 B-49 

Pack Right-Signed 3-086 B-^9 

Input Convert Left-Signed Delete 3-O89 B-26 

Input Convert Right-Signed Delete 3-O89 B-26 

Binary Convert to Decimal 3~Ol6 B-08 

Unpack Left-Signed Update 3-O88 B-79 

Unpack Right-Signed Update 3-O88 B-80 

Dynamic Binary Convert to Decimal 3"017 B-13 

Assert 3"101 B-08 

Read Stack Number 3-066 B-5 1 * 

Range Test 3"010 B~53 

Dynamic Range Test 3-010 B-l 7 

Pause Until Interrupt 3"099 B-^9 

Occurs Index 3"025 B-kJ 

Integer i ze Double-Precision Truncated 3"011 B-kh 

Integerize Double-Precision Rounded 3~012 B-44 

Arithmetic Minimum 3"009 B-07 

Arithmetic Maximum 3~009 B-07 

Leading One Test 3~021 B-36 

Long Name Cal 1 3"031 B-35 

Long Value Call 3"036 B-38 

Normal ize 3-OO8 B-43 

Read External Memory Control 3"099 B-51 

Write External Memory Control 3~100 B-82 

Read Internal Processor State 3~067 B-52 

Write Internal Processor State 3~070 B-82 

Read Machine Identification 3"066 B-82 

Read Time of Day Clock 3"067 B-55 

Move to Stack 3"062 B-42 

Lock Interlock 3~047 B-36 

Conditional Lock Interlock 3~048 B~37 

Unlock Interlock 3"047 B~79 

Read Interlock Status 3"048 B~3^ 
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STAG 
RTAG 
RSUP 
RSDN 
RPRR 
SPRR 
RDLK 
CBON 
LODT 
LLLU 
SRCH 
STOP 
USND 
UPUD 
TWFD 
TWTD 
SWFD 
SWTD 
TRNS 
USNU 
UPUU 
TWFU 
TWTU 
SWFU 
SWTU 
SHOW 
HALT 
SLSD 
SGED 
SGTD 
SLED 
SEQD 
SNED 
DLAY 
SLSU 
SGEU 
SGTU 
SLEU 
SEQU 
SNEU 
NOOP 
NVLD 



v 95B4 

v 95B5 

v 95B6 

v 95B7 

v 95B8 

v 95B9 

v 95BA 

v 95BB 

v 95BC 

v 95BD 

v 95BE 

v 95BF 

v 95DO 

v 95D1 

v 95D2 

v 95D3 

v 95D4 

v 95D5 

v 95D7 

v 95D8 

v 95D9 

v 95DA 

v 95DB 

v 95DC 

v 95DD 

v 95DE 

v 95DF 

v 95 FO 

v 95 FT 

v 95 F 2 

v 95F3 

v 95 F 4 

v 95F5 

v 95 F 6 

v 95 F 8 

v 95 F 9 

v 95 FA 

v 95 FB 

v 95 FC 

v 95 FD 

v 95 FE 

v 95 FF 



Set Tag 

Read Tag 

Rotate Stack Up 

Rotate Stack Down 

Read Processor Register 

Set Processor Register 

Read Lock 

Count Binary Ones 

Load Transparent 

Linked List Lookup 

Masked Search for Equal 

Unconditional Processor Halt 

Unpack Signed Delete 

Unpack Unsigned Delete 

Transfer While False Delete 

Transfer While True Delete 

Scan While False Delete 

Scan While True Delete 

Translate 

Unpack Signed Update 

Unpack Unsigned Update 

Transfer While False Update 

Transfer While True Update 

Scan While* False Update 

Scan While True Update 

Primitive Display 

Conditional Processor Halt 



Scan Wh 
Scan Wh 
Scan Wh 
Scan Wh 
Scan Wh 
Scan Wh 
Delay 
Scan Wh 
Scan Wh 
Scan Wh 
Scan Wh 
Scan Wh 
Scan Wh 



le Less Delete 

le Greater or Equal Delete 

le Greater Delete 

le Less or Equal Delete 

le Equal Delete 

le Not Equal Delete 

le Less Update 

le Greater or Equal Update 

le Greater Update 

le Less or Equal Update 

le Equal Update 

le Not Equal Update 



No Operation 

I nval id Operator 
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3-079 


B-59 


3-079 


B-59 


3-079 


B-61 


3-079 


B-58 


3-079 


B-62 


3-100 


B-16 


3-079 


B-62 
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The following questions relate to the ALGOL compiler. 

1. How many bits in a WORD? 

2. How many bits in a BYTE? 

3. How many bytes in a WORD? 

4. What is the Decimal value of Hexadecimal A27? 

5. What is the purpose of the Tag? 

6. Can data be normally stored into an odd Tag word? 

7. Each program has two basic STACK structures. 

which contain data; 

which contain code. 



8. Solve the following Hexadecimal operations: 

A3^ 1000 

+ 3BC - FFF 
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9. Can an ALGOL identifier begin with a number? 



10. What is the purpose of the EXPONENT field in a floating point WORD (type 
READ? 



11. What is the difference between INTEGER and REAL words? 



12. Logical operators OR, AND, and NOT operate only on bit 0. 
TRUE FALSE 
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13. This question has two parts: 

(a) What will the following literals produce? 

Show your answer as though the value had been stored in a 
single-precision variable (e.g. REAL X;K 

For Example: 

8"ABCDEF" = V'ClC2C3CltC5C6" 

8"CAB" = 

80 M CAB" = 

480"C3C1C2" = 



(b) In the third part of (a) above, what does the 480 before the quoted 
literal mean? 



14. Which of the following statements valid? 
Note: DONE is a BOOLEAN variable. 

(a) IF DONE 
THEN 
ELSE 

VAL:=0; 



(b) IF DONE THEN; 
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15. Give an example of an explicitly numbered CASE statement. 



16. Give an example of an implicitly numbered CASE statement. 



17. What will happen to a program that executes a CASE statement that has an 
arithmetic expression for the argument that is not within the range of any of the 
specified cases. 
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18, Give an example of a BAD GO TO. 



19. Must the lower bound of an ARRAY always be ZERO? 



20. What is the function of the following: 



TRUTHSET 



TRANSLATETABLE 
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21. What is the purpose of the VALUE arithmetic REAL intrinsic function? For 
example, VALUE (TERMINATED). 



22. What is a FIB and what is it used for? 



23. Which I/O type is usually more efficient? 
SEQUENTIAL RANDOM 



24. What will A[0] contain after execution of each of the following REPLACE 
statements: 

REAL I ; 
f:=V'Cl"; 



a) REPLACE POINTER (A) BY I FOR 1 



b) REPLACE POINTER (A) BY I. [7:48] FOR 1 



25. What is the difference between FORMAL and ACTUAL, parameters? 



26. Can a PROCEDURE be passed as a parameter to another PROCEDURE? 
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27. What happens when an expression is passed as a "call by name" parameter? 



28. What is the purpose of LEXICOGRAPHIC (LEX) levels? 



29. What LEX level will a procedure run at? 



30. Will a procedure always run at a LEX level higher than the caller? 



31. What is the purpose of the MCP procedure BLOCKEXIT? 



32. What is the purpose of the SHARING dollar card option? 



33. Give an example of an indirect LIBRARY procedure call. 
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34. What statements cause an INDEPENDENT process to be invoked? 



35. What statements cause a DEPENDENT process to be invoked? 



36. What is a PIB and what is it used for? 



37. What is the difference between an ASYNCHRONOUS and a SYNCHRONOUS 
process? 



38. What is the purpose of the following verbs: 
PROCURE 



LIBERATE 
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39. Give an example of the use of the EXCEPTIONEVENT task attribute. 



40. What is the purpose of an INTERRUPT procedure? 



41. What is the purpose of an EPILOG procedure? 



42.. What is a DOPE vector? 



43,. Give an example of address equation? 



44. What is the purpose of the OWN phrase in declarations? 



45. Give an example of the use of ARRAY REFERENCE variables? 



46. What is a TAG sort? 
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47.. What is the difference between the following dollar card actions: 



SET 



RESET 



POP 



48, What is the purpose of user-defined dollar options? 
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50. What is the function of the following: 
MASKSEARCH 



ONES 



FIRSTONE 



LISTLOOKUP 



ARRAYSEARCH 
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The following questions relate to the COBOL74 compiler. 



51. What is the difference between an INDEX and a SUBSCRIPT? 



52 What is the advantage of the USAGE BINARY? 



53. Is the code generated for handling tables is the same as it is in ALGOL? 

Yes No 

54. How are FILE attributes declared? 



55. Is it possible to PERFORM a paragraph in another SECTION? 



56. What is the default entrypoint name for a COBOL74 library? 



57. What can change the default entrypoint name for a COBOL74 library? 
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58, What causes the creation of a new code segment? 



59. What USAGE types are their and what internal formats do they have? 



60. Where is the operational SIGN carried for different numeric data types? 



61. What must the compiler generate for arithmetic computations using DISPLAY 
type numeric data items? 
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BSS EXIT EXAM 
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REVERSE POLISH NOTATION 



Write an equivalent Reverse Polish string for each of the following arithmetic 
expressions: 

1 . ((A+(B*C))-((B*C)+A))*D 



2. A + B-(C*(D + E)) 



3. (((A + B)*(C-D))/Z)+Y 



i*. (X + Y)*C/((A-(B + C))*J) 



5. ( A + ( B * C ) ) / D 



6. ( A / B ) + ( C * D ) - ( E * ( ( A + B ) / C ) ) 
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Write an equivalent arithmetic expression for each of the following Polish strings: 



1. AB + CD-*X + Y- 



2. A B * C / E + F - 



3. AB+C-D*F/ 



k. ABCDE + /"* 
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BASIC STACK ARCHITECTURE 



/ - 
11. I T ) F : 

,More than one process can use the same SEGMENT DICTIONARY. 



)C 



*-(yi F: /)V > ( ^ -ken™ 

^One process may access more than one SEGMENT DICTIONARY. J y J . />^ ( 

3. T / F: \J 

A code segment may be referenced by several PCWs, each of which give an 
entry point into the code. 

4. T I (p. / 

The^EXICOGRAPHIC level at which a procedure will execute depends on the 
LEX level of the calling procedure. . ^ 

5. T //' F:j 

A procedure running at LEX level 3 may declare a procedure which will run 
at LEX level 3. 

6./ ill F: 
V^The STACK VECTOR is an array of data descriptors, each of which describes 
an area of memory allocated as a STACK or SEGMENT DICTIONARY. All 
STACKS and SEGMENT DICTIONARIES, including the MCP are thus described. 

7. T / F: 

The memory address of the STACK VECTOR descriptor depends on the 
setting of the D[0] register. 



8, \l\l F: 

Mrie process stack is a record of the current state of execution of a 

destination address. 

10. T / F: 

When the processor attempts to execute a program segment that is not 
resident in memory, an interrupt occurs. 

11. ft) F: ^l<^ 

^--Almost all data addressing is done relative to a DISPLAY register. 

12. ?t)/ F: 

The LEX level a procedure will run at is determined at compile time. 
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15. Draw the PROCESS stack for the following program as it would appear at the 
place pointed to by the arrow: 



BEGIN 








REAL A,B,C; 








PROCEDURE PRO 


(A 


,B 


C) ; 


VALUE B,C; 








REAL A,B,C; 








BEGIN 








INTEGER I 


pJ, 


K; 




I :=J:=6; 








K:=(0*C) 


+ 


(B- 


-J)); 


A:=A+K; 
> 









END OF PROCEDURE PRO; 

% Main line of program. 

A:=7; 

B:=5; 

PRO (A,B,C) ; 

END OF PROGRAM. 
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DISPLAY REGISTERS 




! ihe F register contains an inpte^x which, when added to the contents of 

BOSR, locates a MSCW. ' 

2. T /(r) 

The\J3»[2] register points to the saime location as does BOSR. 



<3.<gy/ 

- mi] 



The 15 [1] register always points to a program SEGMENT DICTIONARY. 



4. TJ/ F: 
L-The F register of a central processor points to the last MSCW in the STACK 

which is active on that processor. 

5. T /(^) 

Tags are used to address DISPLAY registers. 

6. T<R) 

D[2J points to a programs SEGMENT DICTIONARY. 

7. fill F: 

MDLO] points to the MCP's stack. 

8. T / F: ^-~""'"" 

DISPLAY registers indicate jtts^pEX level a procedure is running at. 



Copyright © 1986 Joseph & Cogan Associates, Inc. 



A Burroughs Company 



PAGE 359 



9. A procedure is declared at LEX level 3 and called at LEX level 5. What 
DISPLAY register points to the MSCW for this procedure? >4— 



10. What processor register contains the memory address of the most recently 
built MSCW? <f 



11. T If Fry 

The~~1op of stack registers (A and B) hold the current object code being 
executed. 

12. Segment descriptors contained in the users program SEGMENT DICTIONARY 
are addressed relative to what processor register? 



13./ T// F: 

/An instruction is referenced by [SDI:PWI:PSG. 
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WORD FORMATS 

1. / T ) F: 

(^ An RCW contains a return point in a code sequence. 

2. T/(ft) 

A tag of 8 indicates a PCW. 



is always indexed. 



3. T /fR 
A MOM descriptor is always 

4. f-iy F: 

LjTne choice of dimensions for an array can affect the number of data 
descriptors in dope vectors. 

1 5. nl F: 

{-The TOSCW indirectly contains the S and F register settings for an inactive 
stack. 

^^A MSCW is generated when a procedure is entered. 

7 7. /t)/ F: _ 

^-"fhe overlay bit indicates if the data area has been overlayed. hf**) *ofi*'^**^ 

^~"Data arrays are not allocated in memory until an item in the array is 
accessed. 

a t //f7) 

It W"necessary for the programmer to initialize stack data items to zero, 
otherwise the item will contain any miscellaneous value. 

10. In a MSCW, the displacement field is relative to which processor register? 
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D 



11. Given the following RCW where will the procedure exit to? 
3 500621 89^007 

SDLL JfrO ^ Ci 

SDI 

PWI 

PS I 
LL 




5. 



cs 



(Normal or Control) 



12. A process has just caused the following 2 words to be placed- on top of 
stack 15E. *V ^ e 



3 OO8B6D A9BK2C 








\ ; i 


> ;'( 


g fcAJ 


■ & 
III, 





3 15^04A 10C^D22 
j * A. What is the stack number of the procedure we are entering? 



\J 



£ 



1st 



^." ? B. Is the PCW for the procedure we are entering in this stack? 



C. What Lex Level are we going to? 



3 



0. What is the LEX level of the procedure we came from? 



E. What is the SDI:PWI:PSI when we left the procedure? 

5 



13. In a data descriptor, a SIZEF of 7 means what? 
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14. The first word of a process stack contains either: 

TO*?C ^ or QAQCiL^^i { 

15. T I fep 

An SIRW makes it possible to address memory locations^ wJ^ichare not within 
any stack. ^ xvv gj^ 1 ■ n, ijl<<U<a J ^<* ^^^ 

16. T //F:/ 

MSCWs and RCWs always occur in pairs. 

17/tJ/ F: 
V^When exiting a procedure, if the SDLL bit (bit 13) of the RCW is one, D[l] 
is selected as the SDI base otherwise D[0] is selected. 



18. When are the fields of a MSCW inserted and what are their purposes? 



W^$ 










<U,£ C^ v-M H*<fl *>\c*.d<. 
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19. Given the following RCW, where will the procedure exit to? 

3 000401 80A003 

MCP/USER U'>^ r 

SDI X 



PWI \i 



PS I 2- 

LL 



X 



CS • rSQ<»MA (Normal or Control) 
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PROCESSOR OPERATORS 



1. (V F: 

The TOSCW is built by the MVST (move to stack) machine instruction. 

2. T / F: «-} 

A code syllable is 4 bits long. 
f "\ 

3. T ifc) 

An ADD instruction adds the top of stack to a word in memory. 

4. (t> F: 

"Segment of a code file is is used to contain information used by the MCP 
necessary for task initiation. 

5. The MVST machine instruction causes the central processor to access a data 
descriptor at D[0] + 2. To what does this data descriptor point? 

6. Generate machine code or assembly language for: 

. X := A [ B [ I , J ] + K ]; 
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7. What is the missing statement in: 

BEGIN 

REAL X,Y,Z; 

._ > Sf.vj .^^ 

CODE IS: 1003 1004 B204 8 1 82 5002 B8 (NON-EMODE) 
1003 100*+ B204 81 82 F62002 (EMODE) 



8,. When executing a MVST where do we get the following: 



A. Stack to go to. 

B. BOSR of new stack. 

C. L0SR. 

D. S register. 

E. DISPLAY reg settings. 



^f Pf 






^ U.^ 



y 
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9. A program aborted at: 
2B:26D:3 

Just before the program aborted : 
D[1] was set to 113D7 
D[2] was set to 11DBF : 



01843 E53100 6527BO 1EF50B 01FA31 DABDAB DABDAB 

113E3 5 080000 2407EB 3 800000 F1552 3 000000 0005C2 

1 1 3 F 5 3 800001 122FA1 5 08001B A40870 3 800002 2215C6 

113FB 5 880008 70C441 3 000001 0006A 1 3 800000 C16A48 

113FE 3 800000 F1420E 3 800002 B15FE2 3 800001 315F9B 

114011 3 800003 013FFA 3 800028 A13C8A 3 800001 115CF1 

11404 3 000000 0005C3 5 080001 7403B2 3 000000 0006A4 

11DC4 5 800001 01 1DA4 000000 000213 628OOO 040000 

13DB9 3 41EDBD 95BE60 3 04B99A 2E01A0 3 218B20 029A17 

13EF6 3 3BA610 03B810 3 075005 AD700A 3 B8A262 40B3B3 

14210 3 CB3453 8B0985 3 BFFFFF FFFFFF 3 5&95A3 9B6C30 

16A4A 3 B20380 95BC95 3 B9AE60 2EB208 3 ABA3A3 223F20 
Determine why the program aborted. 



A 



The contents of several memory locations are given below: ^H^ J^r 

ADDRESS 






V*\ 
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10. Given the following partial program and code: 

Write the ALGOL statements which compiled into the following code: 

$ SET LIST STACK CODE 

BEGIN 

REAL A,B,C,D; 

PROCEDURE PR0(X,Y,D) ; 
VALUE X,D; 
REAL X,Y,D; 

BEGIN 

INTEGER I , I I ; 

LABEL L; 



FFB2057006B9 877005B83004 B2058CA10006 7003AC300630 023005300if80 
1004808280B8 A3B0B0B4A220 OOFFFFFFFFFF 






L: 

END OF PROCEDURE PRO; 



FFB2035002B8 B20i*5003B8Bl 500^B8B20^50 Oj5B8AE5006lO 02B203805003 
AF1004ABA3BO BOBOBOBFFFFF 00020060E004 B4A22000FFFF 



END OF PROGRAM. 
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